diff options
| -rw-r--r-- | INSTALL | 4 | ||||
| -rw-r--r-- | h2pl/tcbreak | 2 | ||||
| -rw-r--r-- | h2pl/tcbreak2 | 2 | ||||
| -rwxr-xr-x | installman | 2 | ||||
| -rwxr-xr-x | installperl | 2 |
5 files changed, 6 insertions, 6 deletions
@@ -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 2677cc982b..aa6e33e7b6 100644 --- 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 fcbf926516..d9fd735791 100644 --- 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 7665047347..b5b26204f5 100755 --- 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 a28b8499ca..7ce56c31d1 100755 --- 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; |