use Test::More tests => 18;
-use Scope::Upper qw<yield>;
+use Scope::Upper qw<yield leave>;
my @res;
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';
}