[RT #36079] Convert ` to '.

diff --git a/win32/bin/runperl.pl b/win32/bin/runperl.pl
index 2a8b70c..736d7eb 100644 (file)
--- a/win32/bin/runperl.pl
+++ b/win32/bin/runperl.pl
@@ -6,7 +6,7 @@ unless (-f $0) {
        $_ = "." if $_ eq "";
        $0 = "$_/$0" , goto doit if -f "$_/$0";
     }
-    die "`$0' not found.\n";
+    die "'$0' not found.\n";
 }
 doit: exec "perl", "-x", $0, @ARGV;
 die "Failed to exec '$0': $!";

diff --git a/x2p/s2p.PL b/x2p/s2p.PL
index ae2b616..cc7ade0 100644 (file)
--- a/x2p/s2p.PL
+++ b/x2p/s2p.PL
@@ -987,7 +987,7 @@ sub bre2p($$$){
            ### backslash escapes
             my $nc = peek($pat,$ic);
             if( $nc eq '' ){
-                Warn( "`\\' cannot be last in pattern", $fl );
+                Warn( "'\\' cannot be last in pattern", $fl );
                 return undef();
             }
            $ic++;
@@ -1192,7 +1192,7 @@ sub sub2p($$$){
            ### backslash escapes
             my $nc = peek($subst,$ic);
             if( $nc eq '' ){
-                Warn( "`\\' cannot be last in substitution", $fl );
+                Warn( "'\\' cannot be last in substitution", $fl );
                 return undef();
             }
            $ic++;
@@ -1354,7 +1354,7 @@ sub Parse(){
        } elsif( $tabref->[1] eq 'sub' ){
            # s///
            if( ! length( $cmd ) ){
-               Warn( "`s' command requires argument", $fl );
+               Warn( "'s' command requires argument", $fl );
                $error++;
                next;
            }
@@ -1430,13 +1430,13 @@ sub Parse(){
                 $Code .= "# $Commands[$icom]\n" if $doGenerate;
            }
            if( ! length( $cmd ) ){
-               Warn( "`y' command requires argument", $fl );
+               Warn( "'y' command requires argument", $fl );
                $error++;
                next;
            }
            my $d = substr( $cmd, 0, 1 ); $cmd = substr( $cmd, 1 );
            if( $d eq '\\' ){
-               Warn( "`\\' not valid as delimiter in 'y' command", $fl );
+               Warn( "'\\' not valid as delimiter in 'y' command", $fl );
                $error++;
                next;
            }