From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 4 Jul 1998 04:30:03 +0000 (+0000)
Subject: ignore stash entries that are not GVs in dump.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e29cdcb37c6acfc6bee52de4b08de5a85c818aa6;p=p5sagit%2Fp5-mst-13.2.git

ignore stash entries that are not GVs in dump.c

p4raw-id: //depot/perl@1291
---

diff --git a/dump.c b/dump.c
index 8735585..c25bed9 100644
--- a/dump.c
+++ b/dump.c
@@ -45,6 +45,8 @@ dump_packsubs(HV *stash)
 	for (entry = HvARRAY(stash)[i]; entry; entry = HeNEXT(entry)) {
 	    GV *gv = (GV*)HeVAL(entry);
 	    HV *hv;
+	    if (SvTYPE(gv) != SVt_PVGV || !GvGP(gv))
+		continue;
 	    if (GvCVu(gv))
 		dump_sub(gv);
 	    if (GvFORM(gv))