From 7850dc6ab6d99920875493d7f448a2b89754d79f Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 1 Jul 2005 11:49:22 +0000
Subject: silence a warning in Perl_sv_compile_2op

p4raw-id: //depot/perl@25035
---
 pp_ctl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pp_ctl.c')

diff --git a/pp_ctl.c b/pp_ctl.c
index fbd533eac2..13a943c071 100644
--- 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;
-- 
cgit v1.2.1