Silence bcc32 compiler warnings following change 24945

("Possible use of '%s' before definition")

p4raw-id: //depot/perl@24953

diff --git a/pp_ctl.c b/pp_ctl.c
index e27d637..b6c72e8 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2048,7 +2048,7 @@ PP(pp_last)
     register PERL_CONTEXT *cx;
     I32 pop2 = 0;
     I32 gimme;
-    I32 optype;
+    I32 optype = 0;
     OP *nextop;
     SV **newsp;
     PMOP *newpm;

diff --git a/pp_sys.c b/pp_sys.c
index e096478..3d9f756 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1318,8 +1318,8 @@ PP(pp_leavewrite)
     register IO * const io = GvIOp(gv);
     PerlIO * const ofp = IoOFP(io);
     PerlIO *fp;
-    SV **newsp;
-    I32 gimme;
+    SV **newsp = Nullsv;
+    I32 gimme = 0;
     register PERL_CONTEXT *cx;
     PERL_UNUSED_VAR(newsp);
     PERL_UNUSED_VAR(gimme);