From b561f196294beb142a9daf3d93f7d3f067e07fe7 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Wed, 17 Sep 2014 20:23:29 -0700 Subject: pad.c:pad_tidy: Remove redundant IS_PADGV GVs are stored in the pads in two code paths, newPADOP when called by newGVOP, and ck_rvconst. Both of those now set the pad name to &PL_sv_no, as of c9859fbde1 and c2bad63bb3. So GVs are now excluded from the check a few lines below, just like constants. --- pad.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'pad.c') diff --git a/pad.c b/pad.c index 6320afb529..2f62504a3f 100644 --- a/pad.c +++ b/pad.c @@ -1778,8 +1778,7 @@ Perl_pad_tidy(pTHX_ padtidy_type type) * pad are anonymous subs, constants and GVs. * The rest are created anew during cloning. */ - if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix]) - || IS_PADGV(PL_curpad[ix])) + if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix])) continue; namesv = namep[ix]; if (!(PadnamePV(namesv) && -- cgit v1.2.1