From 34805376fa48a707b1a7f52f3a282ee5cacd2cf9 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 12 Nov 2010 09:25:55 -0600 Subject: has_package_symbol --- t/07-edge-cases.t | 2 -- 1 file changed, 2 deletions(-) (limited to 't') diff --git a/t/07-edge-cases.t b/t/07-edge-cases.t index e544c7a..a742c76 100755 --- a/t/07-edge-cases.t +++ b/t/07-edge-cases.t @@ -24,9 +24,7 @@ use Package::Stash; } my $stash = Package::Stash->new('Foo'); -{ local $TODO = "i think this is a perl bug (see comment in has_package_symbol)"; ok($stash->has_package_symbol('$SCALAR'), '$SCALAR'); -} ok($stash->has_package_symbol('$SCALAR_WITH_VALUE'), '$SCALAR_WITH_VALUE'); ok($stash->has_package_symbol('@ARRAY'), '@ARRAY'); ok($stash->has_package_symbol('%HASH'), '%HASH'); -- cgit v1.2.3-54-g00ecf