From dbb689ea6958331b086deb62f5013240e9d69292 Mon Sep 17 00:00:00 2001
From: Hugo van der Sanden <hv@crypt.org>
Date: Thu, 10 May 2001 06:48:09 +0100
Subject: [PATCH] (Retracted by #10073)

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

p4raw-id: //depot/perl@10070
---
 ext/B/B/Deparse.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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);
     }
-- 
2.7.4