From: Robin Barker <rmbarker@cpan.org>
Date: Sun, 15 May 2011 18:02:29 +0000 (+0100)
Subject: unused variables in pp_ctl.c
X-Git-Tag: accepted/trunk/20130322.191538~4121
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9410e98db2629cb1014040562236ba42a308f939;p=platform%2Fupstream%2Fperl.git

unused variables in pp_ctl.c
---

diff --git a/pp_ctl.c b/pp_ctl.c
index fe36489..f86f55c 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2692,8 +2692,8 @@ PP(pp_goto)
 	    SAVEFREESV(cv); /* later, undo the 'avoid premature free' hack */
 	    if (CvISXSUB(cv)) {
 		OP* const retop = cx->blk_sub.retop;
-		SV **newsp;
-		I32 gimme;
+		SV **newsp __attribute__unused__;
+		I32 gimme __attribute__unused__;
 		if (reified) {
 		    I32 index;
 		    for (index=0; index<items; index++)
@@ -4840,7 +4840,7 @@ PP(pp_leavewhen)
 {
     dVAR; dSP;
     register PERL_CONTEXT *cx;
-    I32 gimme;
+    I32 gimme __attribute__unused__;
     SV **newsp;
     PMOP *newpm;