summaryrefslogtreecommitdiff
path: root/win32/bin
diff options
context:
space:
mode:
Diffstat (limited to 'win32/bin')
-rw-r--r--win32/bin/pl2bat.pl4
-rw-r--r--win32/bin/runperl.pl6
-rw-r--r--win32/bin/search.pl2
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));
}