[Bast-commits] r5782 - trunk/Class-Accessor-Grouped/lib/Class/Accessor

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-03-19 23:52:58 +0000 (Thu, 19 Mar 2009)
New Revision: 5782

Modified:
   trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm
Log:
Slightly faster implementation of supers recalc check

Modified: trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm
===================================================================
--- trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm	2009-03-19 21:28:17 UTC (rev 5781)
+++ trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm	2009-03-19 23:52:58 UTC (rev 5782)
@@ -301,11 +301,12 @@
     };
 
     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;
     };