(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 (file)
--- 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);
     }