regexec.c: Remove redundant S_regcp_restore call

[perl5.git] / x2p / s2p.PL

diff --git a/x2p/s2p.PL b/x2p/s2p.PL
index ae2b616..8a5abae 100644 (file)
--- a/x2p/s2p.PL
+++ b/x2p/s2p.PL
@@ -497,6 +497,7 @@ Swap the contents of the pattern space and the hold space.
 
 #--------------------------------------------------------------------------
 $ComTab{'y'}=[ 2, 'tra', \&Emit,       ''                                ]; #ok
+
 =item [2addr]B<y>B</>I<string1>B</>I<string2>B</>
 
 In the pattern space, replace all characters occurring in I<string1> by the
@@ -520,7 +521,7 @@ Prints the current line number on the standard output.
 
 #--------------------------------------------------------------------------
 $ComTab{':'}=[ 0, 'str', \&Label,      ''                                ]; #ok
- 
+
 =item [0addr]B<:> [I<label>]
 
 The command specifies the position of the I<label>. It has no other effect.
@@ -987,7 +988,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 +1193,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 +1355,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 +1431,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;
            }