diff options
| author | Tony Cook <tony@develop-help.com> | 2011-11-14 19:30:17 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2011-11-14 19:30:17 +1100 |
| commit | 28884311ae0933070ec776bd972da9d711a5184b (patch) | |
| tree | 52a185013e289ab75457e4ddd21974f0cd9cf88d /lib/Internals.t | |
| parent | aeba7c97cf81cc1734fe47cebfeef2fa5e3d696f (diff) | |
| download | perl-28884311ae0933070ec776bd972da9d711a5184b.tar.gz | |
[rt #103222] make Internals::SvREFCNT set/get consistent
Diffstat (limited to 'lib/Internals.t')
| -rw-r--r-- | lib/Internals.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Internals.t b/lib/Internals.t index b0d5bda352..d6c2367436 100644 --- a/lib/Internals.t +++ b/lib/Internals.t @@ -7,7 +7,7 @@ BEGIN { } } -use Test::More tests => 74; +use Test::More tests => 76; my $ro_err = qr/^Modification of a read-only value attempted/; @@ -163,3 +163,7 @@ is( Internals::SvREFCNT($foo[2]), 1 ); is( Internals::SvREFCNT(%foo), 1 ); is( Internals::SvREFCNT($foo{foo}), 1 ); +is( Internals::SvREFCNT($foo, 2), 2, "update ref count"); +is( Internals::SvREFCNT($foo), 2, "check we got the stored value"); + +Internals::SvREFCNT($foo, 1 ); |