diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2005-05-07 12:57:06 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-05-07 12:57:06 +0000 |
| commit | a034e688aeb372632feafc428b392a22393dec55 (patch) | |
| tree | 00edd69325fa45e86f3a3a37b5ef01820d454559 /perly.h | |
| parent | 5203fbcae61b42c66ba138a48162ecc0880db2c9 (diff) | |
| download | perl-a034e688aeb372632feafc428b392a22393dec55.tar.gz | |
while (my $x ...) { ...; redo } shouldn't undef $x.
In the presence of 'my' in the conditional of a while(), until(),
or for(;;) loop, add an extra scope to the body so that redo
doesn't undef the lexical
p4raw-id: //depot/perl@24412
Diffstat (limited to 'perly.h')
| -rw-r--r-- | perly.h | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1,8 +1,8 @@ #ifdef PERL_CORE -/* A Bison parser, made by GNU Bison 2.0. */ +/* A Bison parser, made by GNU Bison 1.875c. */ /* Skeleton parser for Yacc-like parsing with Bison, - Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. + Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -171,7 +171,7 @@ typedef union YYSTYPE { OP *opval; GV *gvval; } YYSTYPE; -/* Line 1318 of yacc.c. */ +/* Line 1275 of yacc.c. */ #line 174 "perly.h" # define yystype YYSTYPE /* obsolescent; will be withdrawn */ # define YYSTYPE_IS_DECLARED 1 |