diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-09-17 20:25:54 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-17 23:39:29 -0700 |
| commit | 2347c8c07301812020e6759ce6911a85460a7040 (patch) | |
| tree | 17a9d276f015d91cba94bff8db790090c57bfedf /pad.c | |
| parent | b561f196294beb142a9daf3d93f7d3f067e07fe7 (diff) | |
| download | perl-2347c8c07301812020e6759ce6911a85460a7040.tar.gz | |
pad.c:pad_tidy: Remove IS_PADCONST and another IS_PADGV
Checking these is no longer necessary, since the only thing this loop
does is handle entries that close over variables from outer subrou-
tines. IS_PADGV and IS_PADCONST will never be true for those.
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1801,8 +1801,7 @@ Perl_pad_tidy(pTHX_ padtidy_type type) PADOFFSET ix; for (ix = AvFILLp(PL_comppad); ix > 0; ix--) { if (!namep[ix]) namep[ix] = &PL_sv_undef; - if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix]) - || IS_PADGV(PL_curpad[ix]) || IS_PADCONST(PL_curpad[ix])) + if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix])) continue; if (SvPADMY(PL_curpad[ix]) && !SvFAKE(namep[ix])) { /* This is a work around for how the current implementation of |