From: Peter Rabbitson <ribasushi@cpan.org>
Date: Fri, 23 Apr 2010 23:05:27 +0000 (+0000)
Subject: require XSAccessor in case someone just set hasXS to true manually
X-Git-Tag: v0.09004~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=46f1ef81bdf4519f8fff9952d35b5dbf73adfade;p=p5sagit%2FClass-Accessor-Grouped.git

require XSAccessor in case someone just set hasXS to true manually
---

diff --git a/lib/Class/Accessor/Grouped.pm b/lib/Class/Accessor/Grouped.pm
index 008347e..a62d12e 100644
--- a/lib/Class/Accessor/Grouped.pm
+++ b/lib/Class/Accessor/Grouped.pm
@@ -103,6 +103,7 @@ sub mk_group_accessors {
             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);