This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
suppress redefined warnings on C<INIT {} INIT {}>
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 22 Jul 1998 07:28:35 +0000 (07:28 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 22 Jul 1998 07:28:35 +0000 (07:28 +0000)
p4raw-id: //depot/perl@1628

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