Skip a destructor test on perl 5.6 in t/74-uid-validate.t

[perl/modules/Scope-Upper.git] / t / 74-uid-validate.t

diff --git a/t/74-uid-validate.t b/t/74-uid-validate.t
index 8e7cdcc9b47ebdbd2bac80c91e074c2892797d9b..e58a16270d18e27b86fd86f3d042f8fe333806ba 100644 (file)
--- 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';