diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-08-04 17:57:21 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-08-04 17:57:21 -0700 |
| commit | 5aec98dfc772975fdb511f380dee9d0b016c16be (patch) | |
| tree | a68ce6578c23fc8d9419ed0b440f4dbafa3afe9b /pad.c | |
| parent | f91073d438e1f6952add377836e416c47505261f (diff) | |
| download | perl-5aec98dfc772975fdb511f380dee9d0b016c16be.tar.gz | |
pad.c:cv_clone: Rmv irrelevent part of comment
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -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)) ) { |