diff options
| author | jkeenan <jkeenan@cpan.org> | 2011-11-20 10:07:02 -0500 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-22 16:27:23 -0800 |
| commit | 215757ac6763a78f889a027056d759b86fe8793d (patch) | |
| tree | e0e28991f5c249d9e9cf68241b698c31dffd7aa5 /x2p/s2p.PL | |
| parent | c2b2738279d48c017b27d3133709952ae707743f (diff) | |
| download | perl-215757ac6763a78f889a027056d759b86fe8793d.tar.gz | |
[RT #36079] Convert ` to '.
Diffstat (limited to 'x2p/s2p.PL')
| -rw-r--r-- | x2p/s2p.PL | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/x2p/s2p.PL b/x2p/s2p.PL index ae2b616626..cc7ade0f21 100644 --- 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; } |