X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F63-uplevel-ctl.t;h=fda4410f8791538e44e3e030b71f069acd43c713;hb=2f468390ee816db81380ced997a5b75660c01d46;hp=4f031bce414ef403fa3127dab8280810fc4129a5;hpb=d5523f091e49e6c770977c9070d40b795be91bf4;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/63-uplevel-ctl.t b/t/63-uplevel-ctl.t
index 4f031bc..fda4410 100644
--- a/t/63-uplevel-ctl.t
+++ b/t/63-uplevel-ctl.t
@@ -151,7 +151,7 @@ our $hurp;
 
 SKIP: {
  skip "Causes failures during global destruction on perl 5.8.[0126]" => 5
-                    if ("$]" >= 5.008 and "$]" <= 5.008002) or "$]" == 5.008006;
+                  if ("$]" >= 5.008 and "$]" <= 5.008_002) or "$]" == 5.008_006;
  my $desc = 'exception with an eval and a local $@ in between';
  local $hurp = 'durp';
  local $@;