diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-11-27 19:28:44 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-30 11:48:40 -0800 |
| commit | 5e6246a7a7423b3861d3df84462447b1f2032f9c (patch) | |
| tree | 49a30fd71aadee20451da6cc12cab52ecd8f8e8c /pad.c | |
| parent | cab74fcaebc3ae02d2be259329dee5091cecf045 (diff) | |
| download | perl-5e6246a7a7423b3861d3df84462447b1f2032f9c.tar.gz | |
Use PADNAME rather than SV in pad.c:pad_alloc
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -748,8 +748,9 @@ Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype) * stant or a target. For a target, things marked PADTMP * can be reused; not so for constants. */ + PADNAME *pn; if (++retval <= names_fill && - (sv = names[retval]) && sv != &PL_sv_undef) + (pn = names[retval]) && PadnamePV(pn)) continue; sv = *av_fetch(PL_comppad, retval, TRUE); if (!(SvFLAGS(sv) & |