X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F20-leaks.t;h=2439cc4b5fccfd8eed6f2c2e0014fe9b439773be;hb=520f29d6a96684ce7a681e07084ee1f0c90bc67e;hp=0f46df515dc6b8ca06412f20a3757ede6d5af93a;hpb=cc3f1e42bdbd63dd3122eb94d519fc4b65fe4e21;p=gitmo%2FPackage-Stash-XS.git

diff --git a/t/20-leaks.t b/t/20-leaks.t
index 0f46df5..2439cc4 100644
--- 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');