diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-11-13 21:47:02 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-11-13 22:20:18 -0600 |
| commit | 520f29d6a96684ce7a681e07084ee1f0c90bc67e (patch) | |
| tree | 72bbc2645c545f3625bf7787c7ac40baef3cbaff /t/20-leaks.t | |
| parent | cc3f1e42bdbd63dd3122eb94d519fc4b65fe4e21 (diff) | |
| download | package-stash-xs-520f29d6a96684ce7a681e07084ee1f0c90bc67e.tar.gz package-stash-xs-520f29d6a96684ce7a681e07084ee1f0c90bc67e.zip | |
one more todo
Diffstat (limited to 't/20-leaks.t')
| -rw-r--r-- | t/20-leaks.t | 2 |
1 files changed, 2 insertions, 0 deletions
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'); |