Searched refs:oright (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dop.c6719 OP *oleft, *oright; local
6725 oright = cUNOPo->op_first;
6726 if (!oright || oright->op_type != OP_PUSHMARK)
6728 oright = cUNOPx(oright)->op_sibling;
6729 if (!oright)
6731 if (oright->op_type == OP_NULL) { /* skip sort block/sub */
6732 oright = cUNOPx(oright)
[all...]

Completed in 32 milliseconds