ansiperl builds with Borland C++ again

[p5sagit/p5-mst-13.2.git] / pp_ctl.c

diff --git a/pp_ctl.c b/pp_ctl.c
index 4887690..7718789 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2119,7 +2119,7 @@ sv_compile_2op(SV *sv, OP** startop, char *code, AV** avp)
     dSP;                               /* Make POPBLOCK work. */
     PERL_CONTEXT *cx;
     SV **newsp;
-    I32 gimme;
+    I32 gimme = GIMME;
     I32 optype;
     OP dummy;
     OP *oop = op, *rop;
@@ -2881,3 +2881,4 @@ doparseform(SV *sv)
     SvCOMPILED_on(sv);
 }
 
+