X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F74-uid-validate.t;h=e58a16270d18e27b86fd86f3d042f8fe333806ba;hb=e7846e7f6fded4c4a3139054c5206c1480711867;hp=8e7cdcc9b47ebdbd2bac80c91e074c2892797d9b;hpb=0f7334e9f0acbdac38c362be678bd6ecb658cb0b;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/74-uid-validate.t b/t/74-uid-validate.t
index 8e7cdcc..e58a162 100644
--- a/t/74-uid-validate.t
+++ b/t/74-uid-validate.t
@@ -122,7 +122,9 @@ for my $wrong ('67-8.9', '001-def') {
   ok validate_uid($top), '$top defined before the guard is valid in destructor';
  }
 
- {
+ SKIP: {
+  skip 'Destructors are always last before perl 5.8' => 2 if "$]" < 5.008;
+
   $top = uid;
   my $guard = bless [], 'Scope::Upper::TestUIDDestructor2';
   ok validate_uid($top), '$top defined before the guard is valid in block';