From: Jesse Luehrs Date: Sun, 14 Nov 2010 03:47:02 +0000 (-0600) Subject: one more todo X-Git-Tag: 0.14~20 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=520f29d6a96684ce7a681e07084ee1f0c90bc67e;p=gitmo%2FPackage-Stash-XS.git one more todo --- 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');