diff options
| author | Andy Lester <andy@petdance.com> | 2006-02-05 15:56:43 -0600 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-02-06 04:48:04 +0000 |
| commit | 8b38226bd5310e3491efebdb123b63d72520af10 (patch) | |
| tree | ca69a53b2941756be604fc4607311f7b6936d7d0 /op.c | |
| parent | 27242d61a38f8623e0f0d6376d403101d7511b49 (diff) | |
| download | perl-8b38226bd5310e3491efebdb123b63d72520af10.tar.gz | |
Cleaning up shadowed variables
Message-Id: <B375E848-FA07-479D-9571-FA3925106D16@petdance.com>
p4raw-id: //depot/perl@27102
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); |