5.8.4/distrib/op.c

1985     register OP *curop;
2028     for (curop = LINKLIST(o); curop != o; curop = LINKLIST(curop)) {
2029 	if ((curop->op_type != OP_CONST ||
2030 	     (curop->op_private & OPpCONST_BARE)) &&
2031 	    curop->op_type != OP_LIST &&
2032 	    curop->op_type != OP_SCALAR &&
2033 	    curop->op_type != OP_NULL &&
2034 	    curop->op_type != OP_PUSHMARK)
2040     curop = LINKLIST(o);
2042     PL_op = curop;
2063     register OP *curop;
2070     PL_op = curop = LINKLIST(o);
2072     CALL_PEEP(curop);
2075     PL_op = curop;
2084     curop = ((UNOP*)o)->op_first;
2086     op_free(curop);
2743 	OP *curop;
2745 	    curop = 0;
2754 	    curop = 0;
2758 	    curop = repl;
2761 	    for (curop = LINKLIST(repl); curop!=repl; curop = LINKLIST(curop)) {
2762 		if (PL_opargs[curop->op_type] & OA_DANGEROUS) {
2764 		    if (curop->op_type == OP_THREADSV) {
2766 			if (strchr("&`'123456789+", curop->op_private))
2770 		    if (curop->op_type == OP_GV) {
2771 			GV *gv = cGVOPx_gv(curop);
2777 		    else if (curop->op_type == OP_RV2CV)
2779 		    else if (curop->op_type == OP_RV2SV ||
2780 			     curop->op_type == OP_RV2AV ||
2781 			     curop->op_type == OP_RV2HV ||
2782 			     curop->op_type == OP_RV2GV) {
2786 		    else if (curop->op_type == OP_PADSV ||
2787 			     curop->op_type == OP_PADAV ||
2788 			     curop->op_type == OP_PADHV ||
2789 			     curop->op_type == OP_PADANY) {
2792 		    else if (curop->op_type == OP_PUSHRE)
2797 		lastop = curop;
2800 	if (curop == repl
2809 	    if (curop == repl && !PM_GETRE(pm)) { /* Has variables. */
3189 	OP *curop;
3210 	curop = list(force_list(left));
3211 	o = newBINOP(OP_AASSIGN, flags, list(force_list(right)), curop);
3213 	for (curop = ((LISTOP*)curop)->op_first;
3214 	     curop; curop = curop->op_sibling)
3216 	    if (curop->op_type == OP_RV2HV &&
3217 		((UNOP*)curop)->op_first->op_type != OP_GV) {
3240 	    for (curop = LINKLIST(o); curop != o; curop = LINKLIST(curop)) {
3241 		if (PL_opargs[curop->op_type] & OA_DANGEROUS) {
3242 		    if (curop->op_type == OP_GV) {
3243 			GV *gv = cGVOPx_gv(curop);
3248 		    else if (curop->op_type == OP_PADSV ||
3249 			     curop->op_type == OP_PADAV ||
3250 			     curop->op_type == OP_PADHV ||
3251 			     curop->op_type == OP_PADANY)
3253 			if ((int)PAD_COMPNAME_GEN(curop->op_targ)
3256 			PAD_COMPNAME_GEN(curop->op_targ)
3260 		    else if (curop->op_type == OP_RV2CV)
3262 		    else if (curop->op_type == OP_RV2SV ||
3263 			     curop->op_type == OP_RV2AV ||
3264 			     curop->op_type == OP_RV2HV ||
3265 			     curop->op_type == OP_RV2GV) {
3269 		    else if (curop->op_type == OP_PUSHRE) {
3270 			if (((PMOP*)curop)->op_pmreplroot) {
3273 					((PMOP*)curop)->op_pmreplroot));
3275 			    GV *gv = (GV*)((PMOP*)curop)->op_pmreplroot;
3285 		lastop = curop;
3287 	    if (curop != o)