X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/f91073d438e1f6952add377836e416c47505261f..5aec98dfc772975fdb511f380dee9d0b016c16be:/pad.c

diff --git a/pad.c b/pad.c
index 8deae8e..01813f8 100644
--- a/pad.c
+++ b/pad.c
@@ -2017,9 +2017,8 @@ Perl_cv_clone(pTHX_ CV *proto)
 	SV *sv = NULL;
 	if (namesv && namesv != &PL_sv_undef) { /* lexical */
 	    if (SvFAKE(namesv)) {   /* lexical from outside? */
-		/* formats may have an inactive, or even undefined, parent,
-		   while my $x if $false can leave an active var marked as
-		   stale. And state vars are always available */
+		/* formats may have an inactive, or even undefined, parent;
+		   but state vars are always available. */
 		if (!outpad || !(sv = outpad[PARENT_PAD_INDEX(namesv)])
 		 || (  SvPADSTALE(sv) && !SvPAD_STATE(namesv)
 		    && !CvDEPTH(outside))  ) {