diff options
| author | Akim Demaille <akim@epita.fr> | 1999-09-08 20:18:44 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-08 20:35:18 +0000 |
| commit | c602c2efccc827c9a7133a2fa506b1e35c1b1f0c (patch) | |
| tree | 8a91eed4968e3d89de778e2a24e8e60227a7bab5 /x2p/s2p.PL | |
| parent | 4b4bcab6dfeacd5cae090d62c2aab79d4ab46e5d (diff) | |
| download | perl-c602c2efccc827c9a7133a2fa506b1e35c1b1f0c.tar.gz | |
[ID 19990908.014] s2p does not quote @
Message-Id: <m11OkQm-003A4IC@beyrouth.lrde.epita.fr>
p4raw-id: //depot/perl@4107
Diffstat (limited to 'x2p/s2p.PL')
| -rw-r--r-- | x2p/s2p.PL | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/x2p/s2p.PL b/x2p/s2p.PL index 2f617e7381..be092c2aca 100644 --- a/x2p/s2p.PL +++ b/x2p/s2p.PL @@ -552,6 +552,11 @@ EOT substr($_,$i-1,1) = '$'; } } + elsif ($c eq '@') { + substr($_, $i, 0) = '\\'; + $i++; + $len++; + } elsif ($c eq '&' && $repl) { substr($_, $i, 0) = '$'; $i++; @@ -797,6 +802,7 @@ sub fetchpat { } } $addr =~ s/\t/\\t/g; + $addr =~ s/\@/\\@/g; &simplify($addr); $addr; } |