diff options
Diffstat (limited to 't')
-rw-r--r-- | t/edge-cases.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/edge-cases.t b/t/edge-cases.t index 7424f9e..ddaca14 100644 --- a/t/edge-cases.t +++ b/t/edge-cases.t @@ -89,9 +89,12 @@ SKIP: { } { + local $TODO = $] < 5.010 + ? "undef scalars aren't visible on 5.8" + : undef; my $stash = Package::Stash->new('Baz'); $stash->add_symbol('$baz', \undef); - ok($stash->has_symbol('$baz')); + ok($stash->has_symbol('$baz'), "immortal scalars are also visible"); } done_testing; |