From: Robin Houston <robin@cpan.org>
Date: Thu, 26 Apr 2001 20:52:50 +0000 (+0100)
Subject: Re: [PATCH B::Deparse] fix string uninterpretation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ced0934e21e7f931312ef2a026cf1ae22815ba3;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH B::Deparse] fix string uninterpretation
Message-ID: <20010426205249.A28328@puffinry.freeserve.co.uk>

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index f8f9014..7e14c8e 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -2761,8 +2761,7 @@ sub uninterp {
 # the same, but treat $|, $), $( and $ at the end of the string differently
 sub re_uninterp {
     my($str) = @_;
-    $str =~ s/(^|\G|[^\\])((?:\\\\)*)([\$\@](?!\||\)|\$\(|$)|\\[uUlLQE])/$1$2\\$3/g
-;
+    $str =~ s/(^|\G|[^\\])((?:\\\\)*)([\$\@](?!\||\)|\$\(|$)|\\[uUlLQE])/$1$2\\$3/g;
     return $str;
 }