File perl-avoid-warnings.patch of Package perl

Overview Repositories Revisions Requests Users Attributes Meta

File perl-avoid-warnings.patch of Package perl (Revision 5d40a6aad1a922bdfcfb1399e2ad9494)

Currently displaying revision 5d40a6aad1a922bdfcfb1399e2ad9494 , Show latest

From f2b9631d5d19d2b71c1776e1193173d13f3620bf Mon Sep 17 00:00:00 2001
From: David Mitchell <davem@iabyn.com>
Date: Mon, 23 May 2016 14:43:56 +0100
Subject: [PATCH] CX_POP_SAVEARRAY(): use more distinctive var name

Under -Wshadow, CX_POP_SAVEARRAY's local var 'av' can generate this
warning:

warning: declaration shadows a local variable [-Wshadow]

So rename it to cx_pop_savearay_av to reduce the risk of a clash.

(See http://nntp.perl.org/group/perl.perl5.porters/236444)
---
 cop.h | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cop.h b/cop.h
index da29572..b371379 100644
--- a/cop.h
+++ b/cop.h
@@ -609,10 +609,10 @@ struct block_format {
 /* Restore old @_ */
 #define CX_POP_SAVEARRAY(cx)						\
     STMT_START {							\
-        AV *av = GvAV(PL_defgv);                                        \
+        AV *cx_pop_savearray_av = GvAV(PL_defgv);                       \
 	GvAV(PL_defgv) = cx->blk_sub.savearray;				\
         cx->blk_sub.savearray = NULL;                                   \
-        SvREFCNT_dec(av);	        				\
+        SvREFCNT_dec(cx_pop_savearray_av);	 			\
     } STMT_END
 
 /* junk in @_ spells trouble when cloning CVs and in pp_caller(), so don't

Places

File perl-avoid-warnings.patch of Package perl (Revision 5d40a6aad1a922bdfcfb1399e2ad9494)

Places