diff options
Diffstat (limited to 'win32/bin')
| -rw-r--r-- | win32/bin/pl2bat.pl | 4 | ||||
| -rw-r--r-- | win32/bin/runperl.pl | 6 | ||||
| -rw-r--r-- | win32/bin/search.pl | 2 |
3 files changed, 6 insertions, 6 deletions
diff --git a/win32/bin/pl2bat.pl b/win32/bin/pl2bat.pl index 8fdfa3d8b0..64a807c014 100644 --- a/win32/bin/pl2bat.pl +++ b/win32/bin/pl2bat.pl @@ -26,7 +26,7 @@ Usage: $0 [-h] a /^#!.*perl/ line was already present). -s stripsuffix strip this suffix from file before appending ".bat" Not case-sensitive - Can be a regex if it begins with `/' + Can be a regex if it begins with '/' Defaults to "/\.plx?/" -h show this help EOT @@ -335,7 +335,7 @@ variable to determine which operating system it is being run from. Strip a suffix string from file name before appending a ".bat" suffix. The suffix is not case-sensitive. It can be a regex if -it begins with `/' (the trailing '/' is optional and a trailing +it begins with '/' (the trailing '/' is optional and a trailing C<$> is always assumed). Defaults to C</.plx?/>. =item B<-w> diff --git a/win32/bin/runperl.pl b/win32/bin/runperl.pl index 95b33f9342..2a8b70cbfc 100644 --- a/win32/bin/runperl.pl +++ b/win32/bin/runperl.pl @@ -9,7 +9,7 @@ unless (-f $0) { die "`$0' not found.\n"; } doit: exec "perl", "-x", $0, @ARGV; -die "Failed to exec `$0': $!"; +die "Failed to exec '$0': $!"; __END__ =head1 NAME @@ -20,10 +20,10 @@ runperl.bat - "universal" batch file to run perl scripts C:\> copy runperl.bat foo.bat C:\> foo - [..runs the perl script `foo'..] + [..runs the perl script 'foo'..] C:\> foo.bat - [..runs the perl script `foo'..] + [..runs the perl script 'foo'..] =head1 DESCRIPTION diff --git a/win32/bin/search.pl b/win32/bin/search.pl index 5107a8e4fd..98a320cb7a 100644 --- a/win32/bin/search.pl +++ b/win32/bin/search.pl @@ -464,7 +464,7 @@ sub prepare_to_search ## if ($underlineOK) { if ($regex =~ m/[?*+{}()\\.|^\$[]/) { - warn "$0: warning, can't underline-safe ``$regex''.\n"; + warn "$0: warning, can't underline-safe '$regex'.\n"; } else { $regex = join($underline_glue, split(//, $regex)); } |