silence redefined warning for XS(INIT) {}

p4raw-id: //depot/perl@1801

diff --git a/op.c b/op.c
index ca89229..5b06f6f 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4019,6 +4019,7 @@ newXS(char *name, void (*subaddr) (CV * _CPERLproto), char *filename)
            if (!PL_initav)
                PL_initav = newAV();
            av_push(PL_initav, (SV *)cv);
+           GvCV(gv) = 0;
        }
     }
     else