summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorNick Ing-Simmons <nik@tiuk.ti.com>1997-11-22 18:10:50 +0000
committerNick Ing-Simmons <nik@tiuk.ti.com>1997-11-22 18:10:50 +0000
commit161b471ac314d8d6343f9f351e5fb9ef816168a8 (patch)
treec3a324553e0f560f723db6f25069f4eeca5f65eb /pp_ctl.c
parent2caa6ce99d8e3323a4caebe8d1c7473fc0b66544 (diff)
downloadperl-161b471ac314d8d6343f9f351e5fb9ef816168a8.tar.gz
ansiperl builds with Borland C++ again
p4raw-id: //depot/ansiperl@280
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 48876909f9..7718789de6 100644
--- 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);
}
+