diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-08-08 17:07:07 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-08-08 17:07:07 +0000 |
| commit | 00bf170e31343ccc4fac7a63f6a3acf5e76c3616 (patch) | |
| tree | 64f2ca6ce7de08a6bae7fb4d11de65e8d49396be /x2p | |
| parent | 33b78306b8a6f9a33cf09697c8c3167d2111ea12 (diff) | |
| download | perl-00bf170e31343ccc4fac7a63f6a3acf5e76c3616.tar.gz | |
perl 3.0 patch #25 patch #19, continued
See patch #19.
Diffstat (limited to 'x2p')
| -rw-r--r-- | x2p/s2p.SH | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/x2p/s2p.SH b/x2p/s2p.SH index 08230b02ec..66d7b72258 100644 --- a/x2p/s2p.SH +++ b/x2p/s2p.SH @@ -28,9 +28,12 @@ $spitshell >s2p <<!GROK!THIS! : In the following dollars and backticks do not need the extra backslash. $spitshell >>s2p <<'!NO!SUBS!' -# $Header: s2p.SH,v 3.0.1.3 90/03/01 10:31:21 lwall Locked $ +# $Header: s2p.SH,v 3.0.1.4 90/08/09 05:50:43 lwall Locked $ # # $Log: s2p.SH,v $ +# Revision 3.0.1.4 90/08/09 05:50:43 lwall +# patch19: s2p didn't translate \n right +# # Revision 3.0.1.3 90/03/01 10:31:21 lwall # patch9: s2p didn't handle \< and \> # @@ -424,6 +427,9 @@ ${space}next line;"; $len = length($_); $_ = substr($_,0,--$len); } + elsif (substr($_,$i,1) =~ /^[n]$/) { + ; + } elsif (!$repl && substr($_,$i,1) =~ /^[(){}\w]$/) { $i--; $len--; @@ -612,7 +618,7 @@ sub fetchpat { if ($delim eq '\\') { s/(.)//; $ch = $1; - $delim = '' if $ch =~ /^[(){}\w]$/; + $delim = '' if $ch =~ /^[(){}A-Za-mo-z]$/; $ch = 'b' if $ch =~ /^[<>]$/; $delim .= $ch; } |