From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 10 May 2001 14:26:01 +0000 (+0000)
Subject: Retract #10070, not ready yet.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=374f98998144a5e58919ddd781cb75f885e750f6;p=p5sagit%2Fp5-mst-13.2.git

Retract #10070, not ready yet.

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

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