From: Steve Hay <SteveHay@planit.com>
Date: Tue, 28 Jun 2005 08:01:21 +0000 (+0000)
Subject: Stop "Possible use before definition" warning following change 24997
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=29033a8a33c87f72febba470e43825c1489ad8d3;p=p5sagit%2Fp5-mst-13.2.git

Stop "Possible use before definition" warning following change 24997

p4raw-id: //depot/perl@25003
---

diff --git a/pp_sys.c b/pp_sys.c
index 18c860b..a34efa9 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1330,8 +1330,6 @@ PP(pp_leavewrite)
     SV **newsp;
     I32 gimme;
     register PERL_CONTEXT *cx;
-    PERL_UNUSED_VAR(newsp);
-    PERL_UNUSED_VAR(gimme);
 
     DEBUG_f(PerlIO_printf(Perl_debug_log, "left=%ld, todo=%ld\n",
 	  (long)IoLINES_LEFT(io), (long)FmLINES(PL_formtarget)));
@@ -1445,6 +1443,8 @@ PP(pp_leavewrite)
     /* bad_ofp: */
     PL_formtarget = PL_bodytarget;
     PUTBACK;
+    PERL_UNUSED_VAR(newsp);
+    PERL_UNUSED_VAR(gimme);
     return cx->blk_sub.retop;
 }