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 00:28:08 +0000 (19:28 -0500)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 23 Nov 2011 00:27:15 +0000 (16:27 -0800)
INSTALL
h2pl/tcbreak
h2pl/tcbreak2
installman
installperl

diff --git a/INSTALL b/INSTALL
index d0b63a4..079cc4e 100644 (file)
--- a/INSTALL
+++ b/INSTALL
@@ -1430,7 +1430,7 @@ See also the L<"vsprintf"> item below.
 If you get error messages such as the following (the exact line
 numbers and function name may vary in different versions of perl):
 
-    util.c: In function `Perl_form':
+    util.c: In function 'Perl_form':
     util.c:1107: number of arguments doesn't match prototype
     proto.h:125: prototype declaration
 
@@ -2031,7 +2031,7 @@ pages, however.  You may need to be root to run B<make install>.  If you
 are not root, you must still have permission to install into the directories
 in question and you should ignore any messages about chown not working.
 
-If "make install" just says "`install' is up to date" or something
+If "make install" just says "'install' is up to date" or something
 similar, you may be on a case-insensitive filesystems such as Mac's HFS+,
 and you should say "make install-all".  (This confusion is brought to you
 by the Perl distribution having a file called INSTALL.)
index 2677cc9..aa6e33e 100644 (file)
@@ -12,6 +12,6 @@ $c = getc;
 
 print "$c\n";
 
-printf "you gave me `%s', which is 0x%02x\n", $c, ord($c);
+printf "you gave me '%s', which is 0x%02x\n", $c, ord($c);
 
 &cooked;
index fcbf926..d9fd735 100644 (file)
@@ -12,6 +12,6 @@ $c = getc;
 
 print "$c\n";
 
-printf "you gave me `%s', which is 0x%02x\n", $c, ord($c);
+printf "you gave me '%s', which is 0x%02x\n", $c, ord($c);
 
 &cooked;
index 7665047..b5b2620 100755 (executable)
@@ -214,7 +214,7 @@ sub rename {
        for ($i = 1; $i < 50; $i++) {
            last if CORE::rename($to, "$to.$i");
        }
-       warn("Cannot rename to `$to.$i': $!"), return 0
+       warn("Cannot rename to '$to.$i': $!"), return 0
            if $i >= 50;        # Give up!
     }
     link($from,$to) || return 0;
index a28b849..7ce56c3 100755 (executable)
@@ -661,7 +661,7 @@ sub safe_rename {
        for ($i = 1; $i < 50; $i++) {
            last if rename($to, "$to.$i");
        }
-       warn("Cannot rename to `$to.$i': $!"), return 0
+       warn("Cannot rename to '$to.$i': $!"), return 0
           if $i >= 50; # Give up!
     }
     link($from,$to) || return 0;