X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=3de19a9b6e5c04726e706fd1eda47d405c9a15a3;hb=4883814802ce13b05c096fdeefe987723fc3902f;hp=eef2503e31c09d6ab9c26619e2a1d418fd0e9e6e;hpb=be1d59463692da1b5ef787aeffd0aedbef65664e;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index eef2503..3de19a9 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -1244,10 +1244,10 @@ cxt_when:
    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;
  }
@@ -1977,6 +1977,9 @@ STATIC I32 su_context_skip_db(pTHX_ I32 cxix) {
   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;