diff options
Diffstat (limited to 't/01-basic.t')
| -rw-r--r-- | t/01-basic.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/01-basic.t b/t/01-basic.t index 79c72f1..77c9c13 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -391,7 +391,9 @@ like(exception { [qw(BEGIN bar baz foo quuuux quuux quux)], "list_all_symbols", ); - { local $TODO = $] < 5.010 ? "undef scalars aren't visible on 5.8" : undef; + { local $TODO = ($] < 5.010 || $Package::Stash::IMPLEMENTATION eq 'PP') + ? "undef scalars aren't visible on 5.8, or from pure perl at all" + : undef; is_deeply( [sort $quuux->list_all_symbols('SCALAR')], [qw(foo)], |