5.8.4/distrib/op.c

1970 	OP *o2;
1972 	o2 = newOP(OP_THREADSV, 0);
1973 	o2->op_targ = find_threadsv(";");
1975 	o2 = newSVREF(newGVOP(OP_GV, 0, gv_fetchpv(";", TRUE, SVt_PV))),
1977 	o = convert(OP_JOIN, 0, prepend_elem(OP_LIST, o2, o));
6095     OP *o2 = prev->op_sibling;
6107     for (cvop = o2; cvop->op_sibling; cvop = cvop->op_sibling) ;
6125 	if (o2->op_type == OP_CONST)
6126 	    o2->op_private &= ~OPpCONST_STRICT;
6127 	else if (o2->op_type == OP_LIST) {
6128 	    OP *o = ((UNOP*)o2)->op_first->op_sibling;
6136     while (o2 != cvop) {
6148 		scalar(o2);
6152 		list(o2);
6158 		if (o2->op_type != OP_REFGEN && o2->op_type != OP_UNDEF)
6161 			gv_ename(namegv), o2);
6167 		if (o2->op_type == OP_RV2GV)
6169 		else if (o2->op_type == OP_CONST)
6170 		    o2->op_private &= ~OPpCONST_STRICT;
6171 		else if (o2->op_type == OP_ENTERSUB) {
6173 		    OP *gvop = ((UNOP*)o2)->op_first;
6185 				OP *sibling = o2->op_sibling;
6187 				op_free(o2);
6191 				o2 = newSVOP(OP_CONST, 0, n);
6192 				prev->op_sibling = o2;
6193 				o2->op_sibling = sibling;
6198 		scalar(o2);
6226 				 gv_ename(namegv), o2);
6232 		     if (o2->op_type == OP_RV2GV)
6235 			  bad_type(arg, "symbol", gv_ename(namegv), o2);
6238 		     if (o2->op_type == OP_ENTERSUB)
6241 			  bad_type(arg, "subroutine entry", gv_ename(namegv), o2);
6244 		    if (o2->op_type == OP_RV2SV ||
6245 			o2->op_type == OP_PADSV ||
6246 			o2->op_type == OP_HELEM ||
6247 			o2->op_type == OP_AELEM ||
6248 			o2->op_type == OP_THREADSV)
6251 			bad_type(arg, "scalar", gv_ename(namegv), o2);
6254 		    if (o2->op_type == OP_RV2AV ||
6255 			o2->op_type == OP_PADAV)
6258 			bad_type(arg, "array", gv_ename(namegv), o2);
6261 		    if (o2->op_type == OP_RV2HV ||
6262 			o2->op_type == OP_PADHV)
6265 			 bad_type(arg, "hash", gv_ename(namegv), o2);
6269 			OP* kid = o2;
6272 			o2 = newUNOP(OP_REFGEN, 0, kid);
6273 			o2->op_sibling = sib;
6274 			prev->op_sibling = o2;
6296 	    list(o2);
6297 	mod(o2, OP_ENTERSUB);
6298 	prev = o2;
6299 	o2 = o2->op_sibling;
6720 	    OP *o2;
6742 	    /* o2 follows the chain of op_nexts through the LHS of the
6744 	    o2 = o->op_next;
6745 	    if (!o2 || o2->op_type != OP_NULL)
6747 	    o2 = o2->op_next;
6748 	    if (!o2 || o2->op_type != OP_PUSHMARK)
6750 	    o2 = o2->op_next;
6751 	    if (o2 && o2->op_type == OP_GV)
6752 		o2 = o2->op_next;
6753 	    if (!o2
6754 		|| (o2->op_type != OP_PADAV && o2->op_type != OP_RV2AV)
6755 		|| (o2->op_private & OPpLVAL_INTRO)
6758 	    oleft = o2;
6759 	    o2 = o2->op_next;
6760 	    if (!o2 || o2->op_type != OP_NULL)
6762 	    o2 = o2->op_next;
6763 	    if (!o2 || o2->op_type != OP_AASSIGN
6764 		    || (o2->op_flags & OPf_WANT) != OPf_WANT_VOID)
6769 	    o2 = cUNOPx(o2)->op_first;
6770 	    if (!o2 || o2->op_type != OP_NULL)
6772 	    o2 = cUNOPx(o2)->op_first;
6773 	    if (!o2 || o2->op_type != OP_PUSHMARK)
6775 	    if (o2->op_sibling != o)
6798 	    o2 = o->op_next->op_next;
6799 	    op_null(o2); /* PUSHMARK */
6800 	    o2 = o2->op_next;
6801 	    if (o2->op_type == OP_GV) {
6802 		op_null(o2); /* GV */
6803 		o2 = o2->op_next;
6805 	    op_null(o2); /* RV2AV or PADAV */
6806 	    o2 = o2->op_next->op_next;
6807 	    op_null(o2); /* AASSIGN */
6809 	    o->op_next = o2->op_next;