Fix a test in t/60-uplevel-target.t that does not test anything

diff --git a/t/60-uplevel-target.t b/t/60-uplevel-target.t
index 1dcf3251b71591ec061af186942079d9f5dd6436..c605299bcf8d1efadecc3f2814b20640cdbd4bd3 100644 (file)
--- a/t/60-uplevel-target.t
+++ b/t/60-uplevel-target.t
@@ -226,7 +226,9 @@ sub four {
   is $destroyed, 1, "$desc: target is detroyed";
  }
 
- {
+ SKIP: {
+  skip 'This fails even with a plain subroutine call on 5.8.x' => 6
+                                                                if "$]" < 5.009;
   local $@;
   local $destroyed = 0;
   my $desc = 'code destruction';
@@ -237,6 +239,7 @@ sub four {
     ++$lexical;
     is $destroyed, 0, "$desc: not yet 1";
    };
+   $code = bless $code, 'Scope::Upper::TestCodeDestruction';
 
    eval {
     sub {
@@ -251,7 +254,7 @@ sub four {
    is $destroyed, 0,  "$desc: not yet 3";
   };
 
-  is $destroyed, 0,  "$desc: code is destroyed";
+  is $destroyed, 1, "$desc: code is destroyed";
  }
 
  SKIP: {