diff options
| author | jkeenan <jkeenan@cpan.org> | 2011-11-20 10:03:16 -0500 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-22 16:27:23 -0800 |
| commit | c2b2738279d48c017b27d3133709952ae707743f (patch) | |
| tree | bb02baf9a077287327159a2b6360f0c16c53684e /win32/bin | |
| parent | 28fb188d5c673f559bc91fefc5ea18a47017d88e (diff) | |
| download | perl-c2b2738279d48c017b27d3133709952ae707743f.tar.gz | |
[RT #36079] Convert ` to '.
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)); } |