From: Vincent Pit 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/?a=commitdiff_plain;h=9f4e270a50090f065bbeebbcac06fd6b4297e45c;p=perl%2Fmodules%2FScope-Upper.git 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'; }