From: Steve Hay <SteveHay@planit.com>
Date: Thu, 23 Jun 2005 11:02:42 +0000 (+0000)
Subject: Silence bcc32 compiler warnings following change 24945
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6300418df733fa6a39202abfea4908f73899f1ad;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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);