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 (file)
--- 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))