From 374f98998144a5e58919ddd781cb75f885e750f6 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 10 May 2001 14:26:01 +0000
Subject: [PATCH] Retract #10070, not ready yet.

p4raw-id: //depot/perl@10073
---
 ext/B/B/Deparse.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 9eab37f376..d88c2c7dab 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);
     }
-- 
2.34.1