perl 5.0 alpha 2
[p5sagit/p5-mst-13.2.git] / oy
1         |       LVALFUN sexpr   %prec '('
2                         { $$ = redOP($1, 1, lv($2)); }
3         |       LVALFUN
4                         { $$ = redOP($1, 1,
5                             lv(gv_to_op(A_STAB,defstab))); }
6         |       SSELECT
7                         { $$ = redOP(OP_SELECT, 0);}
8         |       SSELECT  WORD
9                         { $$ = redOP(OP_SELECT, 1,
10                             gv_to_op(A_WORD,newGV($2,TRUE)));
11                             Safefree($2); $2 = Nullch; }
12         |       SSELECT '(' handle ')'
13                         { $$ = redOP(OP_SELECT, 1, $3); }
14         |       SSELECT '(' sexpr csexpr csexpr csexpr ')'
15                         { op4 = $6;
16                           $$ = redOP(OP_SSELECT, 4, $3, $4, $5); }