diff options
| -rw-r--r-- | t/base/lex.t | 2 | ||||
| -rw-r--r-- | t/comp/proto.t | 2 | ||||
| -rw-r--r-- | t/lib/h2ph.h | 8 | ||||
| -rw-r--r-- | t/lib/strict/vars | 2 | ||||
| -rw-r--r-- | t/lib/warnings/op | 2 |
5 files changed, 8 insertions, 8 deletions
diff --git a/t/base/lex.t b/t/base/lex.t index a5d87f6374..ce16ef122e 100644 --- a/t/base/lex.t +++ b/t/base/lex.t @@ -152,7 +152,7 @@ print $foo; # print "ok 32\n"; # These next two tests are trying to make sure that - # $^FOO is always global; it doesn't make sense to `my' it. + # $^FOO is always global; it doesn't make sense to 'my' it. # eval 'my $^X;'; diff --git a/t/comp/proto.t b/t/comp/proto.t index 2394164bbe..04fea69952 100644 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -409,7 +409,7 @@ print "ok ", $i++, "\n"; print "# CORE::open => ($p)\nnot " if ($p = prototype('CORE::open')) ne '*;$@'; print "ok ", $i++, "\n"; -print "# CORE:Foo => ($p), \$@ => `$@'\nnot " +print "# CORE:Foo => ($p), \$@ => '$@'\nnot " if defined ($p = eval { prototype('CORE::Foo') or 1 }) or $@ !~ /^Can't find an opnumber/; print "ok ", $i++, "\n"; diff --git a/t/lib/h2ph.h b/t/lib/h2ph.h index 802639414b..18804d55ba 100644 --- a/t/lib/h2ph.h +++ b/t/lib/h2ph.h @@ -36,8 +36,8 @@ #endif /* __SOME_UNIMPORTANT_PROPERTY */ /* - * Test #if, #elif, #else, #endif, #warn and #error, and `!' - * Also test whitespace between the `#' and the command + * Test #if, #elif, #else, #endif, #warn and #error, and '!' + * Also test whitespace between the '#' and the command */ #if !(defined __SOMETHING_MORE_IMPORTANT) # warn Be careful... @@ -68,8 +68,8 @@ function Tru64_Pascal(n: Integer): Integer; /* * Test #include, #import and #include_next * #include_next is difficult to test, it really depends on the actual - * circumstances - for example, `#include_next <limits.h>' on a Linux system - * with `use lib qw(/opt/perl5/lib/site_perl/i586-linux/linux);' or whatever + * circumstances - for example, '#include_next <limits.h>' on a Linux system + * with 'use lib qw(/opt/perl5/lib/site_perl/i586-linux/linux);' or whatever * your equivalent is... */ #if 0 diff --git a/t/lib/strict/vars b/t/lib/strict/vars index d41aa3c0d7..fdd7af3416 100644 --- a/t/lib/strict/vars +++ b/t/lib/strict/vars @@ -496,7 +496,7 @@ ok ######## # Make sure the strict vars failure still occurs -# now that the `@i should be written as \@i' failure does not occur +# now that the '@i should be written as \@i' failure does not occur # 20000522 mjd@plover.com (MJD) use strict 'vars'; no warnings; diff --git a/t/lib/warnings/op b/t/lib/warnings/op index 6c1f1f1a6f..81133fcad9 100644 --- a/t/lib/warnings/op +++ b/t/lib/warnings/op @@ -85,7 +85,7 @@ fred() ; sub fred ($$) {} - Package `%s' not found (did you use the incorrect case?) + Package '%s' not found (did you use the incorrect case?) Use of /g modifier is meaningless in split |