From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 26 Apr 2001 19:27:48 +0000 (+0000)
Subject: Dethinko from Robin Houston.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2dbfce8813da0261ef4eae6c5c9894a131e58e6c;p=p5sagit%2Fp5-mst-13.2.git

Dethinko from Robin Houston.

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index a982da2..3679a96 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -2763,7 +2763,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;
 }