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

pad.c

diff --git a/pad.c b/pad.c
index 8da66f0..232e2e3 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -2129,7 +2129,7 @@ S_cv_clone_pad(pTHX_ CV *proto, CV *cv, CV *outside, bool newcv)
            }
          }
        }
-       else if (IS_PADGV(ppad[ix]) || (namesv && PadnamePV(namesv))) {
+       else if (namesv && PadnamePV(namesv)) {
            sv = SvREFCNT_inc_NN(ppad[ix]);
        }
        else {