Don’t check IS_PADCONST in pad.c:pad_alloc

Since recent commits have given constants &PL_sv_no names, this check
is redundant, since any slots for constants will have been skipped
over by the sv != &PL_sv_undef check just above.

1 files changed, 1 insertions, 1 deletions

diff --git a/pad.c b/pad.c
index 082dc662f9..76d8aa479e 100644
--- a/pad.c
+++ b/pad.c
@@ -768,7 +768,7 @@ Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype)
 		continue;
 	    sv = *av_fetch(PL_comppad, PL_padix, TRUE);
 	    if (!(SvFLAGS(sv) & (SVs_PADTMP | SVs_PADMY)) &&
-		!IS_PADGV(sv) && !IS_PADCONST(sv))
+		!IS_PADGV(sv))
 		break;
 	}
 	if (tmptype & SVf_READONLY) {