diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-09-17 20:30:00 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-17 23:39:29 -0700 |
commit | 9215480184238817b229b85d235ac9a1e64bd16d (patch) | |
tree | 2b3a7a6669061852bf2793f9ed4a854ecf6bcc2d /pad.c | |
parent | 778f18077c2065300cd49747d7e767bb5c74504b (diff) | |
download | perl-9215480184238817b229b85d235ac9a1e64bd16d.tar.gz |
pad.c:padlist_clone: Don’t bother with IS_PADGV
As of c9859fbde1 and c2bad63bb3, PadnamePV(name) will be non-null
for all pad GVs.
Diffstat (limited to 'pad.c')
-rw-r--r-- | pad.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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); } |