ignore stash entries that are not GVs in dump.c

p4raw-id: //depot/perl@1291

1 files changed, 2 insertions, 0 deletions

diff --git a/dump.c b/dump.c
index 8735585a55..c25bed934a 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))