From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 22 Jul 1998 07:28:35 +0000 (+0000)
Subject: suppress redefined warnings on C<INIT {} INIT {}>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b7aad4feeb4ebd759b54e75dd2786128ab647f94;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@1628
---

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