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

An object destructor is always fired last before 5.8. For example,

    our $y = 1;
    sub X::DESTROY { print $y }
    {
     local $y = 2;
     my $x = bless [], "X"
    }

will print 1 on 5.6 and 2 on 5.8.

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';