one more todo

[gitmo/Package-Stash-XS.git] / t / 20-leaks.t

diff --git a/t/20-leaks.t b/t/20-leaks.t
index 0f46df5..2439cc4 100644 (file)
--- a/t/20-leaks.t
+++ b/t/20-leaks.t
@@ -122,7 +122,9 @@ use Symbol;
         @{$foo->get_or_add_symbol('@ISA')} = @super;
         $foo->get_or_add_symbol('$glob');
     } "get_or_add_symbol doesn't leak";
+    { local $TODO = $] < 5.010 ? "undef scalars aren't visible on 5.8" : undef;
     ok($foo->has_symbol('$glob'));
+    }
     is(ref($foo->get_symbol('$glob')), 'SCALAR');
     ok($foo->has_symbol('@ISA'));
     is(ref($foo->get_symbol('@ISA')), 'ARRAY');