This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
silence a warning in Perl_sv_compile_2op
authorDave Mitchell <davem@fdisolutions.com>
Fri, 1 Jul 2005 11:49:22 +0000 (11:49 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Fri, 1 Jul 2005 11:49:22 +0000 (11:49 +0000)
p4raw-id: //depot/perl@25035

pp_ctl.c

index fbd533e..13a943c 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2768,7 +2768,7 @@ Perl_sv_compile_2op(pTHX_ SV *sv, OP** startop, const char *code, PAD** padp)
     dVAR; dSP;                         /* Make POPBLOCK work. */
     PERL_CONTEXT *cx;
     SV **newsp;
-    I32 gimme;
+    I32 gimme = G_VOID;
     I32 optype;
     OP dummy;
     OP *rop;