diff options
| author | David Mitchell <davem@iabyn.com> | 2016-11-10 13:52:23 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-11-12 16:15:08 +0000 |
| commit | 3429ffb4f9b0e6212cf116c6f2beff44790c35a8 (patch) | |
| tree | fe38c5c6876a6339b2de292c41b68f5089dd89ca /ext/Devel-Peek | |
| parent | 603278a3967e74ac43d71246dfc5ccb5272c0bd3 (diff) | |
| download | perl-3429ffb4f9b0e6212cf116c6f2beff44790c35a8.tar.gz | |
dump.c: don't display an ARRAY's ARYLEN field
Originally xav_arylen was an AV field and was displayed by sv_dump.
In 2005, this ield was removed, and replaced by PERL_MAGIC_arylen_p
magic when needed.
A side effect of this is that sv_dump on a magical AV adds
PERL_MAGIC_arylen_p magic to the av as a side-effect.
Which is undesirable.
This commit just omits displaying 'ARYLEN =' altogether. Any arylen magic
will already be displayed as part of dumping the AV, so it's redundant.
Diffstat (limited to 'ext/Devel-Peek')
| -rw-r--r-- | ext/Devel-Peek/Peek.pm | 4 | ||||
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 3 |
2 files changed, 1 insertions, 6 deletions
diff --git a/ext/Devel-Peek/Peek.pm b/ext/Devel-Peek/Peek.pm index f3ce70f5ef..4ce8b4531b 100644 --- a/ext/Devel-Peek/Peek.pm +++ b/ext/Devel-Peek/Peek.pm @@ -3,7 +3,7 @@ package Devel::Peek; -$VERSION = '1.25'; +$VERSION = '1.26'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -354,7 +354,6 @@ The output: ARRAY = 0xc7e820 FILL = 0 MAX = 0 - ARYLEN = 0x0 FLAGS = (REAL) Elt No. 0 SV = IV(0xc70f88) at 0xc70f98 @@ -386,7 +385,6 @@ The output: ARRAY = 0x1585820 FILL = 1 MAX = 1 - ARYLEN = 0x0 FLAGS = (REAL) Elt No. 0 SV = IV(0x1577f88) at 0x1577f98 diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 41898fea85..d5d3f5ca08 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -262,7 +262,6 @@ do_test('reference to array', ARRAY = $ADDR FILL = 1 MAX = 1 - ARYLEN = 0x0 FLAGS = \\(REAL\\) Elt No. 0 SV = IV\\($ADDR\\) at $ADDR @@ -936,7 +935,6 @@ SV = PVAV\($ADDR\) at $ADDR ARRAY = $ADDR FILL = 2 MAX = 3 - ARYLEN = 0x0 FLAGS = \(REAL\) Elt No. 0 SV = IV\($ADDR\) at $ADDR @@ -962,7 +960,6 @@ SV = PVAV\($ADDR\) at $ADDR ARRAY = $ADDR FILL = 2 MAX = 3 - ARYLEN = 0x0 FLAGS = \(REAL\) Elt No. 0 SV = IV\($ADDR\) at $ADDR |