This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/qr.t: Don't use fancy apostrophe
authorKarl Williamson <khw@cpan.org>
Thu, 3 Oct 2019 03:08:46 +0000 (21:08 -0600)
committerKarl 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

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';
-    # Dont 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';