This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Stop "Possible use before definition" warning following change 24997
authorSteve Hay <SteveHay@planit.com>
Tue, 28 Jun 2005 08:01:21 +0000 (08:01 +0000)
committerSteve Hay <SteveHay@planit.com>
Tue, 28 Jun 2005 08:01:21 +0000 (08:01 +0000)
p4raw-id: //depot/perl@25003

pp_sys.c

index 18c860b..a34efa9 100644 (file)
--- 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;
 }