Fix spelling in a couple of new error messages

[perl/modules/Scope-Upper.git] / t / 58-yield-misc.t

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