This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pad.c:pad_push: Don’t bother with IS_PADGV
authorFather Chrysostomos <sprout@cpan.org>
Thu, 18 Sep 2014 03:28:21 +0000 (20:28 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 18 Sep 2014 06:39:29 +0000 (23:39 -0700)
As of c9859fbde1 and c2bad63bb3, PadnamePV(name) will be true for
all pad GVs.

pad.c

diff --git a/pad.c b/pad.c
index 232e2e3..63d66e8 100644 (file)
--- 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 {