diff options
| author | Yves Orton <demerphq@gmail.com> | 2007-03-21 11:39:24 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-22 09:01:37 +0000 |
| commit | 28d8d7f41ab202dd5f7611033d27ecad44cadd60 (patch) | |
| tree | 330e1fcd2c3e0573355f25c14fc04ce0e64c608c /ext/Devel | |
| parent | da140a4068f95cc339e9327c1579a94f9f241dd8 (diff) | |
| download | perl-28d8d7f41ab202dd5f7611033d27ecad44cadd60.tar.gz | |
Resolve PL_curpm issues with (??{}) and fix corruption of match results when pattern is a qr.
Message-ID: <9b18b3110703210239x540f5ad9mdb41c2ea6229ac31@mail.gmail.com>
plus two follow-up patches (minor tweaks)
p4raw-id: //depot/perl@30678
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/t/Peek.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t index d3a957a068..43dcb1cbfd 100644 --- a/ext/Devel/Peek/t/Peek.t +++ b/ext/Devel/Peek/t/Peek.t @@ -282,6 +282,8 @@ do_test(15, MG_VIRTUAL = $ADDR MG_TYPE = PERL_MAGIC_qr\(r\) MG_OBJ = $ADDR + PAT = "\(\?-xism:tic\)" + REFCNT = 2 STASH = $ADDR\\t"Regexp"'); do_test(16, |