X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FAccessor%2FGrouped.pm;h=514b27bc7143bfced5fc2e03a2e020e21610c475;hb=826625b0b4549b7e2f6ae0dea713a3dbc0de267b;hp=b983975a1971d364efacb8949aaa1b0c72d6cbb6;hpb=4f8ce9da1b9d1723fcb6e031e4c5100a2285d087;p=p5sagit%2FClass-Accessor-Grouped.git

diff --git a/lib/Class/Accessor/Grouped.pm b/lib/Class/Accessor/Grouped.pm
index b983975..514b27b 100644
--- a/lib/Class/Accessor/Grouped.pm
+++ b/lib/Class/Accessor/Grouped.pm
@@ -6,7 +6,7 @@ use Class::Inspector ();
 use Scalar::Util ();
 use MRO::Compat;
 
-our $VERSION = '0.08002';
+our $VERSION = '0.08003';
 
 =head1 NAME
 
@@ -301,11 +301,12 @@ sub get_inherited {
     };
 
     no strict 'refs';
+    no warnings qw/uninitialized/;
     return ${$class.'::__cag_'.$_[1]} if defined(${$class.'::__cag_'.$_[1]});
 
     # we need to be smarter about recalculation, as @ISA (thus supers) can very well change in-flight
     my $pkg_gen = mro::get_pkg_gen ($class);
-    if (!@{$class.'::__cag_supers'} or ${$class.'::__cag_pkg_gen'} != $pkg_gen ) {
+    if ( ${$class.'::__cag_pkg_gen'} != $pkg_gen ) {
         @{$class.'::__cag_supers'} = $_[0]->get_super_paths;
         ${$class.'::__cag_pkg_gen'} = $pkg_gen;
     };