diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-08-09 15:51:44 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-08-09 21:08:59 +0000 |
| commit | 14f338dc60207c41838439f6f09615a0c4c9bf39 (patch) | |
| tree | fea73174b445281e731d75407b0acf5c55163902 /op.c | |
| parent | 384679aa783f7270f4f3edc35b03682e7825671f (diff) | |
| download | perl-14f338dc60207c41838439f6f09615a0c4c9bf39.tar.gz | |
add "$lexical not available" warning in C<for my $lex ()>
Message-ID: <20030809135144.GC4997@fdgroup.com>
p4raw-id: //depot/perl@20591
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3751,7 +3751,7 @@ Perl_newFOROP(pTHX_ I32 flags,char *label,line_t forline,OP *sv,OP *expr,OP *blo append_elem(OP_LIST, expr, scalar(sv)))); assert(!loop->op_next); /* for my $x () sets OPpLVAL_INTRO; - * for our $x () sets OPpOUR_INTRO; both only used by Deparse.pm */ + * for our $x () sets OPpOUR_INTRO */ loop->op_private = (U8)iterpflags; #ifdef PL_OP_SLAB_ALLOC { |