diff options
| -rw-r--r-- | dump.c | 2 | ||||
| -rw-r--r-- | ext/Devel-Peek/Peek.pm | 4 | ||||
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 3 |
3 files changed, 1 insertions, 8 deletions
@@ -1675,8 +1675,6 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo (void)PerlIO_putc(file, '\n'); Perl_dump_indent(aTHX_ level, file, " FILL = %"IVdf"\n", (IV)AvFILLp(sv)); Perl_dump_indent(aTHX_ level, file, " MAX = %"IVdf"\n", (IV)AvMAX(sv)); - Perl_dump_indent(aTHX_ level, file, " ARYLEN = 0x%"UVxf"\n", - SvMAGIC(sv) ? PTR2UV(AvARYLEN(sv)) : 0); SvPVCLEAR(d); if (AvREAL(sv)) sv_catpv(d, ",REAL"); if (AvREIFY(sv)) sv_catpv(d, ",REIFY"); 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 |