X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F74-uid-validate.t;h=e58a16270d18e27b86fd86f3d042f8fe333806ba;hb=781b4bd63a83b8363268f878964c1a90d76c3d70;hp=8e7cdcc9b47ebdbd2bac80c91e074c2892797d9b;hpb=444d78492ecace2f652fae44f177516b37bb18c0;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';