Lines Matching refs:label
1116 S_dopoptolabel(pTHX_ char *label)
1136 if (!cx->blk_loop.label ||
1137 strNE(label, cx->blk_loop.label) ) {
1138 DEBUG_l(Perl_deb(aTHX_ "(Skipping label #%ld %s)\n",
1139 (long)i, cx->blk_loop.label));
1142 DEBUG_l( Perl_deb(aTHX_ "(Found label #%ld %s)\n", (long)i, label));
2047 S_dofindlabel(pTHX_ OP *o, char *label, OP **opstack, OP **oplimit)
2070 kCOP->cop_label && strEQ(kCOP->cop_label, label))
2085 if ((o = dofindlabel(kid, label, ops, oplimit)))
2107 char *label;
2109 static char must_have_label[] = "goto must have label";
2112 label = 0;
2337 label = SvPV(sv,n_a);
2338 if (!(do_dump || *label))
2347 label = cPVOP->op_pv;
2349 if (label && *label) {
2355 /* find label */
2400 retop = dofindlabel(gotoprobe, label,
2408 DIE(aTHX_ "Can't find label %s", label);