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 /pp_ctl.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 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -3446,12 +3446,12 @@ PP(pp_entereval) /* switch to eval mode */ if (PERLDB_NAMEEVAL && CopLINE(PL_curcop)) { - SV * const sv = sv_newmortal(); - Perl_sv_setpvf(aTHX_ sv, "_<(eval %lu)[%s:%"IVdf"]", + SV * const temp_sv = sv_newmortal(); + Perl_sv_setpvf(aTHX_ temp_sv, "_<(eval %lu)[%s:%"IVdf"]", (unsigned long)++PL_evalseq, CopFILE(PL_curcop), (IV)CopLINE(PL_curcop)); - tmpbuf = SvPVX(sv); - len = SvCUR(sv); + tmpbuf = SvPVX(temp_sv); + len = SvCUR(temp_sv); } else len = my_sprintf(tmpbuf, "_<(eval %lu)", (unsigned long)++PL_evalseq); |