diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-09-17 20:28:21 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-17 23:39:29 -0700 |
commit | 778f18077c2065300cd49747d7e767bb5c74504b (patch) | |
tree | f22952f16a0efd4750d466b09447b65c7a8f86fd /pad.c | |
parent | 4c894bf7d74f974997c2b89d390aa6a3bef0e131 (diff) | |
download | perl-778f18077c2065300cd49747d7e767bb5c74504b.tar.gz |
pad.c:pad_push: Don’t bother with IS_PADGV
As of c9859fbde1 and c2bad63bb3, PadnamePV(name) will be true for
all pad GVs.
Diffstat (limited to 'pad.c')
-rw-r--r-- | pad.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2380,7 +2380,7 @@ Perl_pad_push(pTHX_ PADLIST *padlist, int depth) SvPADMY_on(sv); } } - else if (IS_PADGV(oldpad[ix]) || PadnamePV(names[ix])) { + else if (PadnamePV(names[ix])) { av_store(newpad, ix, SvREFCNT_inc_NN(oldpad[ix])); } else { |