Lines Matching refs:label
3354 Perl_newSTATEOP(pTHX_ I32 flags, char *label, OP *o)
3376 if (label) {
3377 cop->cop_label = label;
3790 Perl_newFOROP(pTHX_ I32 flags,char *label,line_t forline,OP *sv,OP *expr,OP *block,OP *cont)
3886 return newSTATEOP(0, label, wop);
3890 Perl_newLOOPEX(pTHX_ I32 type, OP *label)
3895 if (type != OP_GOTO || label->op_type == OP_CONST) {
3897 if (label->op_type == OP_STUB && (label->op_flags & OPf_PARENS))
3900 o = newPVOP(type, 0, savepv(label->op_type == OP_CONST
3901 ? SvPVx(((SVOP*)label)->op_sv, n_a)
3904 op_free(label);
3908 if (label->op_type == OP_ENTERSUB
3909 && !(label->op_flags & OPf_STACKED))
3910 label = newUNOP(OP_REFGEN, 0, mod(label, OP_REFGEN));
3911 o = newUNOP(type, OPf_STACKED, label);