X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F63-uplevel-ctl.t;h=fba2a687d25b178c922376db00b14a9974f96a18;hb=eef3f2764e7018e3eaf2f1d11f249b510d023a2d;hp=3a6c5d6c0d3d3d1ae7303d66c6dab5c86668f938;hpb=315828816488ed369d36100fa7d59d31de3ed302;p=perl%2Fmodules%2FScope-Upper.git diff --git a/t/63-uplevel-ctl.t b/t/63-uplevel-ctl.t index 3a6c5d6..fba2a68 100644 --- a/t/63-uplevel-ctl.t +++ b/t/63-uplevel-ctl.t @@ -153,8 +153,8 @@ is do { local $@; eval { depth() } }, 1, 'check eval block depth'; our $hurp; SKIP: { - skip "Causes failures during global destruction on perl 5.8.[0126]" => 5 - if ("$]" >= 5.008 and "$]" <= 5.008_002) or "$]" == 5.008_006; + skip "Causes failures during global destruction on perl 5.8.[0-6]" => 5 + if "$]" >= 5.008 and "$]" <= 5.008_006; my $desc = 'exception with an eval and a local $@ in between'; local $hurp = 'durp'; local $@;