From: Hugo van der Sanden <hv@crypt.org>
Date: Thu, 10 May 2001 05:48:09 +0000 (+0100)
Subject: (Retracted by #10073)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dbb689ea6958331b086deb62f5013240e9d69292;p=p5sagit%2Fp5-mst-13.2.git

(Retracted by #10073)

Subject: Re: [PATCH t/TEST] B::Deparse tester
Message-Id: <200105100448.FAA13584@crypt.compulink.co.uk>

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index d88c2c7..9eab37f 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -3462,7 +3462,8 @@ sub matchop {
 	$kid = $kid->sibling;
     }
     if (null $kid) {
-	$re = re_uninterp(escape_str(re_unback($op->precomp)));
+	$re = re_unback($op->precomp);
+	$re = re_uninterp(escape_str($re)) unless $op->pmflags & PMf_EXTENDED;
     } else {
 	$re = $self->deparse($kid, 1);
     }