diff options
Diffstat (limited to 't/edge-cases.t')
-rwxr-xr-x | t/edge-cases.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/edge-cases.t b/t/edge-cases.t index b1e5bb8..1d26176 100755 --- a/t/edge-cases.t +++ b/t/edge-cases.t @@ -57,7 +57,9 @@ SKIP: { skip "PP doesn't support anon stashes before 5.14", 4 if $Package::Stash::IMPLEMENTATION eq 'PP' && Package::Stash::BROKEN_GLOB_ASSIGNMENT; - local $TODO = "don't know how to properly inflate a stash entry"; + local $TODO = ($Package::Stash::IMPLEMENTATION eq 'PP') + ? "don't know how to properly inflate a stash entry" + : undef; my $anon = {}; # not using Package::Anon $anon->{foo} = -1; # stub |