From 7ef54f40657ca05b95a31e7c81c28c2446b2cf37 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 30 Aug 2011 00:08:34 -0500
Subject: better test for scalar existence

---
 t/impl-selection/basic-pp.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 't/impl-selection/basic-pp.t')

diff --git a/t/impl-selection/basic-pp.t b/t/impl-selection/basic-pp.t
index 7388e80..398f383 100644
--- a/t/impl-selection/basic-pp.t
+++ b/t/impl-selection/basic-pp.t
@@ -395,8 +395,8 @@ like(exception {
         [qw(BEGIN bar baz foo quuuux quuux quux)],
         "list_all_symbols",
     );
-    { 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;
     is_deeply(
         [sort $quuux->list_all_symbols('SCALAR')],
-- 
cgit v1.2.3-54-g00ecf