diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-08-30 00:18:11 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-08-30 00:18:11 -0500 |
commit | 6a47396a8c14fa10c8e145d96abf92665d01dca5 (patch) | |
tree | 0989af5ee0124ee9e6b1cb34339b5140a5556342 | |
parent | e7872e6f4b6345226a4a08a372ebeb4b87e82811 (diff) | |
download | package-stash-xs-6a47396a8c14fa10c8e145d96abf92665d01dca5.tar.gz package-stash-xs-6a47396a8c14fa10c8e145d96abf92665d01dca5.zip |
doc and test updates from Package::Stash
-rw-r--r-- | lib/Package/Stash/XS.pm | 11 | ||||
-rw-r--r-- | t/basic.t | 4 | ||||
-rwxr-xr-x | t/edge-cases.t | 4 |
3 files changed, 6 insertions, 13 deletions
diff --git a/lib/Package/Stash/XS.pm b/lib/Package/Stash/XS.pm index 3954112..c93ab48 100644 --- a/lib/Package/Stash/XS.pm +++ b/lib/Package/Stash/XS.pm @@ -24,16 +24,9 @@ This is a backend for L<Package::Stash>, which provides the functionality in a way that's less buggy and much faster. It will be used by default if it's installed, and should be preferred in all environments with a compiler. -=head1 BUGS / CAVEATS +=head1 BUGS -=over 4 - -=item * Prior to perl 5.10, scalar slots are only considered to exist if they are defined - -This is due to a shortcoming within perl itself. See -L<perlref/Making References> point 7 for more information. - -=back +No known bugs (but see the BUGS section in L<Package::Stash>). Please report any bugs through RT: email C<bug-package-stash-xs at rt.cpan.org>, or browse to @@ -391,8 +391,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')], 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'); } |