[RT #36079] Convert ` to '.

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.)

diff --git a/h2pl/tcbreak b/h2pl/tcbreak
index 2677cc9..aa6e33e 100644 (file)
--- a/h2pl/tcbreak
+++ b/h2pl/tcbreak
@@ -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;

diff --git a/h2pl/tcbreak2 b/h2pl/tcbreak2
index fcbf926..d9fd735 100644 (file)
--- a/h2pl/tcbreak2
+++ b/h2pl/tcbreak2
@@ -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;

diff --git a/installman b/installman
index 7665047..b5b2620 100755 (executable)
--- a/installman
+++ b/installman
@@ -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;

diff --git a/installperl b/installperl
index a28b849..7ce56c3 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -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;