diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-01-02 20:47:31 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-01-02 20:47:31 +0000 |
| commit | 2e94196c9b65166bc30c1956b01df877a36f8934 (patch) | |
| tree | b99c35ca437ec79ef2f15a090f77f1695031b382 /ext/Devel | |
| parent | 93c535ac3c07a4674324635bcb8ecc089468009f (diff) | |
| download | perl-2e94196c9b65166bc30c1956b01df877a36f8934.tar.gz | |
PVMG can be isUV too.
p4raw-id: //depot/perl@29668
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/t/Peek.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t index ed622fd7ce..04546be9de 100644 --- a/ext/Devel/Peek/t/Peek.t +++ b/ext/Devel/Peek/t/Peek.t @@ -14,7 +14,7 @@ BEGIN { require "./test.pl"; } use Devel::Peek; -plan(23); +plan(24); our $DEBUG = 0; open(SAVERR, ">&STDERR") or die "Can't dup STDERR: $!"; @@ -503,3 +503,13 @@ do_test(23, OUTSIDE_SEQ = 0 PADLIST = 0x0 OUTSIDE = 0x0 \\(null\\)'); + +# isUV should show on PVMG +do_test(24, + do { my $v = $1; $v = ~0; $v }, +'SV = PVMG\\($ADDR\\) at $ADDR + REFCNT = 1 + FLAGS = \\(IOK,pIOK,IsUV\\) + UV = \d+ + NV = 0 + PV = 0'); |