From 8b38226bd5310e3491efebdb123b63d72520af10 Mon Sep 17 00:00:00 2001 From: Andy Lester Date: Sun, 5 Feb 2006 15:56:43 -0600 Subject: Cleaning up shadowed variables Message-Id: p4raw-id: //depot/perl@27102 --- op.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'op.c') diff --git a/op.c b/op.c index 8dd29765ff..54c56c4a65 100644 --- a/op.c +++ b/op.c @@ -4883,8 +4883,8 @@ Perl_newXS(pTHX_ const char *name, XSUBADDR_t subaddr, const char *filename) if (gvcv) { HV * const stash = GvSTASH(gvcv); if (stash) { - const char *name = HvNAME_get(stash); - if ( strEQ(name,"autouse") ) { + const char *redefined_name = HvNAME_get(stash); + if ( strEQ(redefined_name,"autouse") ) { const line_t oldline = CopLINE(PL_curcop); if (PL_copline != NOLINE) CopLINE_set(PL_curcop, PL_copline); -- cgit v1.2.1