summaryrefslogtreecommitdiff
path: root/pad.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-09-17 20:28:21 -0700
committerFather Chrysostomos <sprout@cpan.org>2014-09-17 23:39:29 -0700
commit778f18077c2065300cd49747d7e767bb5c74504b (patch)
treef22952f16a0efd4750d466b09447b65c7a8f86fd /pad.c
parent4c894bf7d74f974997c2b89d390aa6a3bef0e131 (diff)
downloadperl-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pad.c b/pad.c
index 232e2e3487..63d66e8602 100644
--- a/pad.c
+++ b/pad.c
@@ -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 {