applied patch, with tweak suggested by Michael Parker

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index fc2e7da..16f528d 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3669,6 +3669,7 @@ newSUB(I32 floor, OP *o, OP *proto, OP *block)
            if (!PL_initav)
                PL_initav = newAV();
            av_push(PL_initav, SvREFCNT_inc(cv));
+           GvCV(gv) = 0;
        }
     }