summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-01-14 04:16:51 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-01-14 04:16:51 +0000
commitf472eb5c07ed95306a11c98250bda17aae994339 (patch)
treeec0f98c535a7112418134f68146d78b4344ec604 /dump.c
parent192587c2153e5b0fa4ed545cdd3fa7fef8fc0d8b (diff)
downloadperl-f472eb5c07ed95306a11c98250bda17aae994339.tar.gz
nailed "our" declarations, and better warnings on duplicate
"our" declarations p4raw-id: //depot/perl@4801
Diffstat (limited to 'dump.c')
-rw-r--r--dump.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/dump.c b/dump.c
index c10ac1abc7..ee64af5b89 100644
--- a/dump.c
+++ b/dump.c
@@ -1132,6 +1132,8 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
Perl_dump_indent(aTHX_ level, file, " NAMELEN = %"IVdf"\n", (IV)GvNAMELEN(sv));
do_hv_dump (level, file, " GvSTASH", GvSTASH(sv));
Perl_dump_indent(aTHX_ level, file, " GP = 0x%"UVxf"\n", PTR2UV(GvGP(sv)));
+ if (!GvGP(sv))
+ break;
Perl_dump_indent(aTHX_ level, file, " SV = 0x%"UVxf"\n", PTR2UV(GvSV(sv)));
Perl_dump_indent(aTHX_ level, file, " REFCNT = %"IVdf"\n", (IV)GvREFCNT(sv));
Perl_dump_indent(aTHX_ level, file, " IO = 0x%"UVxf"\n", PTR2UV(GvIOp(sv)));