diff options
| author | David Mitchell <davem@iabyn.com> | 2010-07-18 15:07:08 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-07-18 18:39:18 +0100 |
| commit | cfc1e951d98ba2b9a0e066aba9aadba4cd919eec (patch) | |
| tree | 035e1c687d0f681990220c6e3f4db9317252fd3e /ext/Devel-Peek | |
| parent | 00c0cb6d254eaba165c8445a6e68686b8285b5a3 (diff) | |
| download | perl-cfc1e951d98ba2b9a0e066aba9aadba4cd919eec.tar.gz | |
add CVf_CVGV_RC flag
after the recent commit 803f274831f937654d48f8cf0468521cbf8f5dff,
the CvGV field is sometimes reference counted. Since it was intended that
the reference counting would happen only for anonymous CVs, the CVf_ANON
flag was co-opted to indicate whether RC was being used. This is not
entirely robust; for example, sub __ANON__ {} is a non-anon sub which
points to the same GV used by anon subs, which while itself doesn't
directly break things, shows that the potential for breakage is there.
So add a separate flag just to indicate the reference count status of the
CvGV field.
Diffstat (limited to 'ext/Devel-Peek')
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 3c90f6e77b..1fb1a5d5d8 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -261,7 +261,7 @@ do_test(13, RV = $ADDR SV = PVCV\\($ADDR\\) at $ADDR REFCNT = 2 - FLAGS = \\($PADMY,POK,pPOK,ANON,WEAKOUTSIDE\\) + FLAGS = \\($PADMY,POK,pPOK,ANON,WEAKOUTSIDE,CVGV_RC\\) IV = 0 # $] < 5.009 NV = 0 # $] < 5.009 PROTOTYPE = "" @@ -276,7 +276,7 @@ do_test(13, MUTEXP = $ADDR OWNER = $ADDR)? FLAGS = 0x404 # $] < 5.009 - FLAGS = 0x90 # $] >= 5.009 + FLAGS = 0x490 # $] >= 5.009 OUTSIDE_SEQ = \\d+ PADLIST = $ADDR PADNAME = $ADDR\\($ADDR\\) PAD = $ADDR\\($ADDR\\) |