From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 30 Aug 2011 05:18:11 +0000 (-0500)
Subject: doc and test updates from Package::Stash
X-Git-Tag: 0.24~9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6a47396a8c14fa10c8e145d96abf92665d01dca5;p=gitmo%2FPackage-Stash-XS.git

doc and test updates from Package::Stash
---

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
diff --git a/t/basic.t b/t/basic.t
index 77c9c13..a106e9e 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -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');
 }