projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
e550c04
)
When you write C<my $_ ; for (...) {...}>, the lexical $_
author
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Fri, 20 Feb 2004 17:29:32 +0000
(17:29 +0000)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Fri, 20 Feb 2004 17:29:32 +0000
(17:29 +0000)
is not actually introduced by the for statement.
p4raw-id: //depot/perl@22352
op.c
patch
|
blob
|
history
diff --git
a/op.c
b/op.c
index
bed697d
..
add8cc9
100644
(file)
--- a/
op.c
+++ b/
op.c
@@
-3724,7
+3724,6
@@
Perl_newFOROP(pTHX_ I32 flags,char *label,line_t forline,OP *sv,OP *expr,OP *blo
}
else {
padoff = offset;
- iterpflags = OPpLVAL_INTRO; /* my $_; for () */
}
}
if (expr->op_type == OP_RV2AV || expr->op_type == OP_PADAV) {