From: Vincent Pit <vince@profvince.com>
Date: Fri, 14 Sep 2012 00:12:53 +0000 (+0200)
Subject: Fix spelling in a couple of new error messages
X-Git-Tag: v0.20~5
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=9f4e270a50090f065bbeebbcac06fd6b4297e45c

Fix spelling in a couple of new error messages
---

diff --git a/Upper.xs b/Upper.xs
index eef2503..10b7964 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;
  }
diff --git a/t/55-yield-target.t b/t/55-yield-target.t
index 48b5036..46ea7f5 100644
--- 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 2eb222f..16556e8 100644
--- 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';
 }