suppress redefined warnings on C<INIT {} INIT {}>

p4raw-id: //depot/perl@1628

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;
        }
     }