Fix spelling in a couple of new error messages

[perl/modules/Scope-Upper.git] / t / 55-yield-target.t

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