summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2016-11-10 13:52:23 +0000
committerDavid Mitchell <davem@iabyn.com>2016-11-12 16:15:08 +0000
commit3429ffb4f9b0e6212cf116c6f2beff44790c35a8 (patch)
treefe38c5c6876a6339b2de292c41b68f5089dd89ca /dump.c
parent603278a3967e74ac43d71246dfc5ccb5272c0bd3 (diff)
downloadperl-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 'dump.c')
-rw-r--r--dump.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/dump.c b/dump.c
index 3e1b011fc4..58c8fccb9b 100644
--- a/dump.c
+++ b/dump.c
@@ -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");