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 9eab37f3764c6e67f46e88e8c8d132b8dd5b1e7e..d88c2c7dabbe898118fcacdb7ffccd1cca52052a 100644 (file)
--- 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);
     }