[inseparable changes from patch from perl5.003_18 to perl5.003_19]
[perl.git] / dump.c
diff --git a/dump.c b/dump.c
index c0749b8..7aed230 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -50,7 +50,7 @@ HV* stash;
        for (entry = HvARRAY(stash)[i]; entry; entry = HeNEXT(entry)) {
            GV *gv = (GV*)HeVAL(entry);
            HV *hv;
-           if (GvCV(gv))
+           if (GvCVu(gv))
                dump_sub(gv);
            if (GvFORM(gv))
                dump_form(gv);