This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pad.c:padlist_clone: Don’t bother with IS_PADGV
authorFather Chrysostomos <sprout@cpan.org>
Thu, 18 Sep 2014 03:30:00 +0000 (20:30 -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 non-null
for all pad GVs.

pad.c

diff --git a/pad.c b/pad.c
index 63d66e8..fafb946 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -2516,8 +2516,7 @@ Perl_padlist_dup(pTHX_ PADLIST *srcpad, CLONE_PARAMS *param)
                        }
                    }
                }
-               else if (IS_PADGV(oldpad[ix])
-                     || (  names_fill >= ix && names[ix]
+               else if ((  names_fill >= ix && names[ix]
                         && PadnamePV(names[ix])  )) {
                    pad1a[ix] = sv_dup_inc(oldpad[ix], param);
                }