diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-01-05 14:13:48 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-01-05 14:13:48 +0000 |
commit | f7c278bfa9715e5e699e162924f507b3b71db8fd (patch) | |
tree | 0aaf84a222dcd4a126464cf9bf3fd3c4345f8874 /ext/Devel | |
parent | efd26800e76b6f876fd6abe3a3f7e3e4128150a9 (diff) | |
download | perl-f7c278bfa9715e5e699e162924f507b3b71db8fd.tar.gz |
Abolish wrapped in struct regexp - store the wrapped pattern pointer
in the SvPVX().
p4raw-id: //depot/perl@32841
Diffstat (limited to 'ext/Devel')
-rw-r--r-- | ext/Devel/Peek/t/Peek.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t index af9dc02156..0047ee5271 100644 --- a/ext/Devel/Peek/t/Peek.t +++ b/ext/Devel/Peek/t/Peek.t @@ -284,10 +284,12 @@ do_test(15, RV = $ADDR SV = REGEXP\\($ADDR\\) at $ADDR REFCNT = 2 - FLAGS = \\(\\) + FLAGS = \\(POK,pPOK\\) IV = 0 NV = 0 - PV = 0'); + PV = $ADDR "\\(\\?-xism:tic\\)"\\\0 + CUR = 12 + LEN = \\d+'); } else { do_test(15, qr(tic), |