diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-10 14:26:01 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-10 14:26:01 +0000 |
| commit | 374f98998144a5e58919ddd781cb75f885e750f6 (patch) | |
| tree | 2bf85db8e799ed7b730fa17633c7d2c2b7ec03f2 /ext/B | |
| parent | c4163172c9597634a8ddcd74d5bb3acb8cf0a541 (diff) | |
| download | perl-374f98998144a5e58919ddd781cb75f885e750f6.tar.gz | |
Retract #10070, not ready yet.
p4raw-id: //depot/perl@10073
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Deparse.pm | 3 |
1 files changed, 1 insertions, 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); } |