X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=blobdiff_plain;f=t%2F58-yield-misc.t;h=3243272da8fcd30f8383803de941d568717ca0a4;hp=ca6fda079334e27586e939bab85fb4259c7c39ac;hb=6c74fb492a0404fa8822211cba07b1027ce3cfec;hpb=f875bbd708105434e7092fac0b72fa2b4fa81c0f

diff --git a/t/58-yield-misc.t b/t/58-yield-misc.t
index ca6fda0..3243272 100644
--- a/t/58-yield-misc.t
+++ b/t/58-yield-misc.t
@@ -121,7 +121,9 @@ sub guard { VPIT::TestHelpers::Guard->new(sub { ++$destroyed }) }
  is "@res", '1 2 3 4', 'leave with arguments';
 }
 
-{
+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 {