Fix spelling in a couple of new error messages

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;
  }

diff --git a/t/55-yield-target.t b/t/55-yield-target.t
index 48b503626157e7eecc080ff2b6b5b33c61adb80b..46ea7f5d51e44287355cb7d3aea7dd0c290e5a60 100644 (file)
--- a/t/55-yield-target.t
+++ b/t/55-yield-target.t
@@ -72,7 +72,7 @@ is_deeply \@res, [ 20, 23 ], 'yield() in while () { ... }';
  my $err  = $@;
  my $line = __LINE__-3;
  like $err,
-      qr/^yield\(\) cannot target a substitution context at \Q$0\E line $line/,
+      qr/^yield\(\) can't target a substitution context at \Q$0\E line $line/,
       'yield() cannot exit subst';
 }
 

diff --git a/t/58-yield-misc.t b/t/58-yield-misc.t
index 2eb222ff8e6c07a11715ff57bba2f9b2de2f2a63..16556e850fc8b7e7670d058584594022db1ae670 100644 (file)
--- a/t/58-yield-misc.t
+++ b/t/58-yield-misc.t
@@ -102,6 +102,6 @@ sub guard { VPIT::TestHelpers::Guard->new(sub { ++$destroyed }) }
  my $err  = $@;
  my $line = __LINE__-3;
  like $err,
-      qr/^leave\(\) cannot target a substitution context at \Q$0\E line $line/,
+      qr/^leave\(\) can't target a substitution context at \Q$0\E line $line/,
       'leave() cannot exit subst';
 }