-sexpr : sexpr '=' sexpr
- { $$ = newASSIGNOP(OPf_STACKED, $1, $3); }
- | sexpr POWOP '=' sexpr
- { $$ = newBINOP($2, OPf_STACKED,
- ref(scalar($1), $2), scalar($4)); }
- | sexpr MULOP '=' sexpr
- { $$ = newBINOP($2, OPf_STACKED,
- ref(scalar($1), $2), scalar($4)); }
- | sexpr ADDOP '=' sexpr
- { $$ = newBINOP($2, OPf_STACKED,
- ref(scalar($1), $2), scalar($4));}
- | sexpr SHIFTOP '=' sexpr
- { $$ = newBINOP($2, OPf_STACKED,
- ref(scalar($1), $2), scalar($4)); }
- | sexpr BITANDOP '=' sexpr
- { $$ = newBINOP($2, OPf_STACKED,
- ref(scalar($1), $2), scalar($4)); }
- | sexpr BITOROP '=' sexpr
- { $$ = newBINOP($2, OPf_STACKED,
- ref(scalar($1), $2), scalar($4)); }
- | sexpr ANDAND '=' sexpr
- { $$ = newLOGOP(OP_ANDASSIGN, 0,
- ref(scalar($1), OP_ANDASSIGN),
- newUNOP(OP_SASSIGN, 0, scalar($4))); }
- | sexpr OROR '=' sexpr
- { $$ = newLOGOP(OP_ORASSIGN, 0,
- ref(scalar($1), OP_ORASSIGN),
- newUNOP(OP_SASSIGN, 0, scalar($4))); }
-
-
- | sexpr POWOP sexpr