[PATCH B::Deparse] fix string uninterpretation

[robin@dev perl-current]$ ./perl -Ilib -MO=Deparse -e'print <<x' -e'\$\$' -ex
print "\$$\n";
-e syntax OK


That's not right!
Patch follows.

 .robin.


--- ext/B/B/Deparse.pm.sent1	Thu Apr 26 17:05:59 2001
+++ ext/B/B/Deparse.pm	Thu Apr 26 17:09:09 2001
@@ -2754,15 +2754,15 @@
 # but not character escapes
 sub uninterp {
     my($str) = @_;
-    $str =~ s/(^|[^\\])([\$\@]|\\[uUlLQE])/$1\\$2/g;
+    $str =~ s/(^|\G|[^\\])((?:\\\\)*)([\$\%\@]|\\[uUlLQE])/$1$2\\$3/g;
     return $str;
 }
 
 # the same, but treat $|, $), and $ at the end of the string differently
 sub re_uninterp {
     my($str) = @_;
-    $str =~ s/(^|[^\\])(\@|\\[uUlLQE])/$1\\$2/g;
-    $str =~ s/(^|[^\\])(\$[^)|])/$1\\$2/g;
+    $str =~ s/(^|\G|[^\\])((?:\\\\)*)([\$\%\@](?!\||\)|$)|\\[uUlLQE])/$1$2\\$3/g
+;
     return $str;
 }
 

• [PATCH B::Deparse] fix string uninterpretation by Robin Houston
• Re: [PATCH B::Deparse] fix string uninterpretation by Mike Guy
• Re: [PATCH B::Deparse] fix string uninterpretation by Robin Houston
• Re: [PATCH B::Deparse] fix string uninterpretation by Jarkko Hietaniemi
• Re: [PATCH B::Deparse] fix string uninterpretation by Robin Houston