summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2010-09-08 14:46:07 +0100
committerDavid Mitchell <davem@iabyn.com>2010-09-08 14:48:30 +0100
commitaafca5257dfefe4cf2a531c79cadea21a566f9c3 (patch)
tree1efc7e88d9cadf86e67dcf4fdca78df5fb2d7296 /pp_ctl.c
parent89e00a7cf0897e993e1c67663e2673b123f5ce8c (diff)
downloadperl-aafca5257dfefe4cf2a531c79cadea21a566f9c3.tar.gz
move some comments back to the lines they refer to
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c11
1 files changed, 5 insertions, 6 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 11755ca700..b2c68d360a 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -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;