is $loop, 21, 'yield() exited while';
is_deeply \@res, [ 20, 23 ], 'yield() in while () { ... }';
-{
+SKIP: {
+ skip '"eval { $str =~ s/./die q[foo]/e }" breaks havoc on perl 5.8 and below'
+ => 1 if "$]" < 5.010;
my $s = 'a';
local $@;
eval {
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';
}