From: Akim Demaille <akim@epita.fr>
Date: Wed, 8 Sep 1999 18:18:44 +0000 (+0200)
Subject: [ID 19990908.014] s2p does not quote @
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c602c2efccc827c9a7133a2fa506b1e35c1b1f0c;p=p5sagit%2Fp5-mst-13.2.git

[ID 19990908.014] s2p does not quote @

	Message-Id: <m11OkQm-003A4IC@beyrouth.lrde.epita.fr>

p4raw-id: //depot/perl@4107
---

diff --git a/x2p/s2p.PL b/x2p/s2p.PL
index 2f617e7..be092c2 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;
 }