diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-02 13:47:42 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-02 13:47:42 +0000 |
| commit | 288b8c02c5ee89a2978a1b9e56ed255c53beb793 (patch) | |
| tree | 6ae37841e6bccf1a6b817df3291f10c4e3b1783d /ext/Devel | |
| parent | 84679df57ca0626f7fb35fc3038e2e142b97f8a4 (diff) | |
| download | perl-288b8c02c5ee89a2978a1b9e56ed255c53beb793.tar.gz | |
Make struct regexp the body of SVt_REGEXP SVs, REGEXPs become SVs,
and regexp reference counting is via the regular SV reference counting.
This was not as easy at it looks.
p4raw-id: //depot/perl@32804
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/t/Peek.t | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t index 2c4cfbf679..af9dc02156 100644 --- a/ext/Devel/Peek/t/Peek.t +++ b/ext/Devel/Peek/t/Peek.t @@ -283,12 +283,11 @@ do_test(15, FLAGS = \\(ROK\\) RV = $ADDR SV = REGEXP\\($ADDR\\) at $ADDR - REFCNT = 1 + REFCNT = 2 FLAGS = \\(\\) IV = 0 NV = 0 - PV = 0 - REGEXP = $ADDR'); + PV = 0'); } else { do_test(15, qr(tic), |