/* perly.y
*
- * Copyright (c) 1991-1994, Larry Wall
+ * Copyright (c) 1991-1997, Larry Wall
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
/* basically fake up an initialize-while lineseq */
{ copline = $2;
$$ = block_end($4,
- append_elem(OP_LINESEQ, scalar($5),
- newSTATEOP(0, $1,
+ newSTATEOP(0, $1,
+ append_elem(OP_LINESEQ, scalar($5),
newWHILEOP(0, 1, (LOOP*)Nullop,
scalar($7),
$11, scalar($9))))); }