diff options
| -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; } |