2 newFOROP(label,forline,scalar,expr,block,cont)
15 * The following gobbledygook catches EXPRs that
16 * aren't explicit array refs and translates
21 * where @ary is a hidden array made by newGVgen().
22 * (Note that @ary may become a local array if
23 * it is determined that it might be called
24 * recursively. See cmd_tosave().)
26 if (expr->op_type != OP_ARRAY) {
27 scrstab = gv_AVadd(newGVgen());
28 newop = append_elem(OP_LINESEQ,
31 listref(newUNOP(OP_ARRAY,
32 gv_to_op(A_STAB,scrstab))),
34 loopscope(over(scalar,newSTATEOP(label,
37 gv_to_op(A_STAB,scrstab)),
39 newop->cop_line = forline;
40 newop->cop_head->cop_line = forline;
43 newop = loopscope(over(scalar,newSTATEOP(label,
44 newLOOPOP(1,expr,block,cont) )));