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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-04-24 00:05:27 +0100 (Sat, 24 Apr 2010)
New Revision: 9198

Modified:
   trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm
Log:
require XSAccessor in case someone just set hasXS to true manually

Modified: trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm
===================================================================
--- trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm	2010-04-23 22:45:35 UTC (rev 9197)
+++ trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm	2010-04-23 23:05:27 UTC (rev 9198)
@@ -103,6 +103,7 @@
             my $full_alias = join('::', $class, $alias);
             
             if ( $hasXS && $group eq 'simple' ) {
+                require Class::XSAccessor;
                 Class::XSAccessor::newxs_accessor("${class}::${name}", $field, 0);
                 Class::XSAccessor::newxs_accessor("${class}::${alias}", $field, 0);