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

p4raw-id: //depot/perl@1628

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index fc2e7da461..16f528df84 100644
--- 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;
 	}
     }