diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-05-10 06:48:09 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-10 13:18:42 +0000 |
| commit | dbb689ea6958331b086deb62f5013240e9d69292 (patch) | |
| tree | c168b97cf6b412f4f50465ff5f1ff78a92b2eda3 /ext/B | |
| parent | 4bfc3f4d8a75856264074036f844c7b83264858a (diff) | |
| download | perl-dbb689ea6958331b086deb62f5013240e9d69292.tar.gz | |
(Retracted by #10073)
Subject: Re: [PATCH t/TEST] B::Deparse tester
Message-Id: <200105100448.FAA13584@crypt.compulink.co.uk>
p4raw-id: //depot/perl@10070
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Deparse.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index d88c2c7dab..9eab37f376 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); } |