diff options
| author | Jesse Luehrs <doy@tozt.net> | 2011-08-30 00:08:34 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2011-08-30 00:11:26 -0500 |
| commit | 7ef54f40657ca05b95a31e7c81c28c2446b2cf37 (patch) | |
| tree | d8d5e809c82ae1237f041739a785771a9ab561d9 /t/edge-cases.t | |
| parent | fcc593391ce79d11386af5064dd216682e6f843f (diff) | |
| download | package-stash-7ef54f40657ca05b95a31e7c81c28c2446b2cf37.tar.gz package-stash-7ef54f40657ca05b95a31e7c81c28c2446b2cf37.zip | |
better test for scalar existence
Diffstat (limited to 't/edge-cases.t')
| -rwxr-xr-x | t/edge-cases.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/edge-cases.t b/t/edge-cases.t index 7c82626..04e2164 100755 --- 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'); } |