Fix spelling in a couple of new error messages

[perl/modules/Scope-Upper.git] / Upper.xs

diff --git a/Upper.xs b/Upper.xs
index eef2503e31c09d6ab9c26619e2a1d418fd0e9e6e..10b7964481a0022c8f38494b12c7e9f91fda9d80 100644 (file)
--- 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;
  }