break;
#endif
case CXt_SUBST:
- croak("%s() cannot target a substitution context", which);
+ croak("%s() can't target a substitution context", which);
break;
default:
- croak("%s() don't know how to leave a %s context",
+ croak("%s() doesn't know how to leave a %s context",
which, SU_CXNAME(cxstack + cxix));
break;
}
PERL_CONTEXT *cx = cxstack + i;
switch (CxTYPE(cx)) {
+#if SU_HAS_PERL(5, 17, 1)
+ case CXt_LOOP_PLAIN:
+#endif
case CXt_BLOCK:
if (cx->blk_oldcop && CopSTASH(cx->blk_oldcop) == GvSTASH(PL_DBgv))
continue;