This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pad.c:cv_clone: Rmv irrelevent part of comment
authorFather Chrysostomos <sprout@cpan.org>
Sun, 5 Aug 2012 00:57:21 +0000 (17:57 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 5 Aug 2012 00:57:21 +0000 (17:57 -0700)
pad.c

diff --git a/pad.c b/pad.c
index 8deae8e..01813f8 100644 (file)
--- 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))  ) {