summaryrefslogtreecommitdiff
path: root/pad.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-09-17 20:30:00 -0700
committerFather Chrysostomos <sprout@cpan.org>2014-09-17 23:39:29 -0700
commit9215480184238817b229b85d235ac9a1e64bd16d (patch)
tree2b3a7a6669061852bf2793f9ed4a854ecf6bcc2d /pad.c
parent778f18077c2065300cd49747d7e767bb5c74504b (diff)
downloadperl-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.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/pad.c b/pad.c
index 63d66e8602..fafb946dab 100644
--- 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);
}