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.

1 files changed, 1 insertions, 2 deletions

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) &&