35 lines
1.2 KiB
Diff
35 lines
1.2 KiB
Diff
|
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
|