diff options
author | David Mitchell <davem@iabyn.com> | 2010-09-08 14:46:07 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2010-09-08 14:48:30 +0100 |
commit | aafca5257dfefe4cf2a531c79cadea21a566f9c3 (patch) | |
tree | 1efc7e88d9cadf86e67dcf4fdca78df5fb2d7296 /pp_ctl.c | |
parent | 89e00a7cf0897e993e1c67663e2673b123f5ce8c (diff) | |
download | perl-aafca5257dfefe4cf2a531c79cadea21a566f9c3.tar.gz |
move some comments back to the lines they refer to
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 11 |
1 files changed, 5 insertions, 6 deletions
@@ -1952,8 +1952,8 @@ PP(pp_enteriter) ENTER_with_name("loop1"); SAVETMPS; - if (PL_op->op_targ) { - if (PL_op->op_private & OPpLVAL_INTRO) { /* for my $x (...) */ + if (PL_op->op_targ) { /* "my" variable */ + if (PL_op->op_private & OPpLVAL_INTRO) { /* for my $x (...) */ SvPADSTALE_off(PAD_SVl(PL_op->op_targ)); SAVESETSVFLAGS(PAD_SVl(PL_op->op_targ), SVs_PADSTALE, SVs_PADSTALE); @@ -1962,13 +1962,12 @@ PP(pp_enteriter) #ifdef USE_ITHREADS itervar = PL_comppad; #else - itervar = &PAD_SVl(PL_op->op_targ); /* "my" variable */ + itervar = &PAD_SVl(PL_op->op_targ); #endif } - else { + else { /* symbol table variable */ GV * const gv = MUTABLE_GV(POPs); - SV** svp = &GvSV(gv); /* symbol table variable */ - SAVEGENERICSV(*svp); + SV** svp = &GvSV(gv); SAVEGENERICSV(*svp); *svp = newSV(0); #ifdef USE_ITHREADS itervar = (void *)gv; |