From: Matt S Trout <mst@shadowcat.co.uk>
Date: Tue, 7 Aug 2007 14:45:46 +0000 (+0000)
Subject: fix for AccessorGroup
X-Git-Tag: v0.08010~99
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=commitdiff_plain;h=fe0e9f6788cd319d430b447d31912f739097705e

fix for AccessorGroup
---

diff --git a/Changes b/Changes
index 4fbcedd..beb34cc 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for DBIx::Class
         - fixed storage->connected fork bug
           (test and fix from Radu Greab)
+        - add 1; to AccessorGroup.pm for stuff that still uses it
         - refactor Statistics to create debugging filehandle to fix bug with
           closed STDERR, update docs and modify Versioned to use Statistics
           (original fix from diz)
diff --git a/lib/DBIx/Class/AccessorGroup.pm b/lib/DBIx/Class/AccessorGroup.pm
index f553a87..ae4d490 100644
--- a/lib/DBIx/Class/AccessorGroup.pm
+++ b/lib/DBIx/Class/AccessorGroup.pm
@@ -5,6 +5,8 @@ use warnings;
 
 use base qw/Class::Accessor::Grouped/;
 
+1;
+
 =head1 NAME
 
 DBIx::Class::AccessorGroup - See Class::Accessor::Grouped
diff --git a/t/05components.t b/t/05components.t
index 567bc1b..303f028 100644
--- a/t/05components.t
+++ b/t/05components.t
@@ -7,7 +7,7 @@ use Test::More;
 use lib qw(t/lib);
 use DBICTest::ForeignComponent;
 
-plan tests => 5;
+plan tests => 6;
 
 #   Tests if foreign component was loaded by calling foreign's method
 ok( DBICTest::ForeignComponent->foreign_test_method, 'foreign component' );
@@ -62,3 +62,5 @@ is( scalar @warnings, 1,
 }
 is( scalar @warnings, 0,
     'warning not issued for correct order in load_components()' );
+
+use_ok('DBIx::Class::AccessorGroup');