better test for scalar existence

[gitmo/Package-Stash.git] / t / edge-cases.t

diff --git a/t/edge-cases.t b/t/edge-cases.t
index 7c82626..04e2164 100755 (executable)
--- a/t/edge-cases.t
+++ b/t/edge-cases.t
@@ -26,8 +26,8 @@ use Package::Stash;
 }
 
 my $stash = Package::Stash->new('Foo');
-{ local $TODO = ($] < 5.010 || $Package::Stash::IMPLEMENTATION eq 'PP')
-      ? "undef scalars aren't visible on 5.8, or from pure perl at all"
+{ local $TODO = $] < 5.010
+      ? "undef scalars aren't visible on 5.8"
       : undef;
 ok($stash->has_symbol('$SCALAR'), '$SCALAR');
 }