This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3f7ce33
)
t/op/qr.t: Don't use fancy apostrophe
author
Karl Williamson
<khw@cpan.org>
Thu, 3 Oct 2019 03:08:46 +0000
(21:08 -0600)
committer
Karl Williamson
<khw@cpan.org>
Wed, 9 Oct 2019 16:34:19 +0000
(10:34 -0600)
when the ASCII one will do.
t/op/qr.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/qr.t
b/t/op/qr.t
index
e03a465
..
b726f3c
100644
(file)
--- a/
t/op/qr.t
+++ b/
t/op/qr.t
@@
-100,7
+100,7
@@
is ref \$t2, 'main', 'regexp assignment is not maledictory';
sub {
$_[0] = ${qr=crumpets=};
is ref\$_[0], 'REGEXP', 'PVLVs';
- # Don
’
t use like() here, as we would no longer be testing a PVLV.
+ # Don
'
t use like() here, as we would no longer be testing a PVLV.
ok " crumpets " =~ $_[0], 'using a regexpvlv as regexp';
my $x = $_[0];
is ref\$x, 'REGEXP', 'copying a regexpvlv';