This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[RT #36079] Convert ` to '.
authorjkeenan <jkeenan@cpan.org>
Sun, 20 Nov 2011 01:19:56 +0000 (20:19 -0500)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 23 Nov 2011 00:27:21 +0000 (16:27 -0800)
t/op/sub_lval.t
t/porting/diag.t
t/re/qr.t
t/re/regexp.t

index ce5da8d..ac3aaf3 100644 (file)
@@ -131,7 +131,7 @@ EOE
 
 #@out = ($x, a3, $y, b2, $z, c4, $t);
 #@in = (34 .. 41, (undef) x 4, 46);
-#print "# `@out' ne `@in'\nnot " unless "@out" eq "@in";
+#print "# '@out' ne '@in'\nnot " unless "@out" eq "@in";
 
 like($_, qr/Can\'t return an uninitialized value from lvalue subroutine/);
 print "ok 22\n";
index 50aa996..d899886 100644 (file)
@@ -384,10 +384,10 @@ Can't return array to lvalue scalar context
 Can't return a %s from lvalue subroutine
 Can't return hash to lvalue scalar context
 Can't spawn "%s": %s
-Can't %s script `%s' with ARGV[0] being `%s'
+Can't %s script '%s' with ARGV[0] being '%s'
 Can't %s "%s": %s
 Can't %s %s%s%s
-Can't %s `%s' with ARGV[0] being `%s' (looking for executables only, not found)
+Can't %s '%s' with ARGV[0] being '%s' (looking for executables only, not found)
 Can't take %s of %f
 Can't use '%c' after -mname
 Can't use string ("%s"%s) as a subroutine ref while "strict refs" in use
index eeda05c..1378772 100644 (file)
--- a/t/re/qr.t
+++ b/t/re/qr.t
@@ -10,7 +10,7 @@ plan tests => 5;
 
 my $rx = qr//;
 
-is(ref $rx, "Regexp", "qr// blessed into `Regexp' by default");
+is(ref $rx, "Regexp", "qr// blessed into 'Regexp' by default");
 
 
 # Make sure /$qr/ doesn’t clobber match vars before the match (bug 70764).
index 815b877..3e5c6f8 100644 (file)
@@ -168,7 +168,7 @@ EOFCODE
        }
        chomp( my $err = $@ );
        if ($result eq 'c') {
-           if ($err !~ m!^\Q$expect!) { print "not ok $test$todo (compile) $input => `$err'\n"; next TEST }
+           if ($err !~ m!^\Q$expect!) { print "not ok $test$todo (compile) $input => '$err'\n"; next TEST }
            last;  # no need to study a syntax error
        }
        elsif ( $skip ) {
@@ -180,7 +180,7 @@ EOFCODE
            next TEST;
        }
        elsif ($@) {
-           print "not ok $test$todo $input => error `$err'\n", _comment("$code\n$@\n"); next TEST;
+           print "not ok $test$todo $input => error '$err'\n", _comment("$code\n$@\n"); next TEST;
        }
        elsif ($result =~ /^n/) {
            if ($match) { print "not ok $test$todo ($study) $input => false positive\n"; next TEST }
@@ -189,12 +189,12 @@ EOFCODE
            if (!$match || $got ne $expect) {
                eval { require Data::Dumper };
                if ($@) {
-                   print "not ok $test$todo ($study) $input => `$got', match=$match\n", _comment("$code\n");
+                   print "not ok $test$todo ($study) $input => '$got', match=$match\n", _comment("$code\n");
                }
                else { # better diagnostics
                    my $s = Data::Dumper->new([$subject],['subject'])->Useqq(1)->Dump;
                    my $g = Data::Dumper->new([$got],['got'])->Useqq(1)->Dump;
-                   print "not ok $test$todo ($study) $input => `$got', match=$match\n", _comment("$s\n$g\n$code\n");
+                   print "not ok $test$todo ($study) $input => '$got', match=$match\n", _comment("$s\n$g\n$code\n");
                }
                next TEST;
            }