Skip 'yield to subst context' tests on perl 5.8 and below

[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 46ea7f5d51e44287355cb7d3aea7dd0c290e5a60..f927d20767d85689dd2bb31652861993f53497f7 100644 (file)
--- a/t/55-yield-target.t
+++ b/t/55-yield-target.t
@@ -63,7 +63,9 @@ is_deeply \@res, [ 15, 19 ], 'yield() in for () { ... }';
 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 {