From: David Kamholz <dkamholz@cpan.org>
Date: Tue, 7 Feb 2006 19:16:39 +0000 (+0000)
Subject: small tweak to ResultSetManager (still doesn't work perfectly)
X-Git-Tag: v0.05005~24
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e250c0464f5263e12d067369beca02616e7ea9a0;p=dbsrgits%2FDBIx-Class.git

small tweak to ResultSetManager (still doesn't work perfectly)
---

diff --git a/lib/DBIx/Class/ResultSetManager.pm b/lib/DBIx/Class/ResultSetManager.pm
index c3ab98d..5891d7f 100644
--- a/lib/DBIx/Class/ResultSetManager.pm
+++ b/lib/DBIx/Class/ResultSetManager.pm
@@ -31,7 +31,7 @@ sub _register_attributes {
         if ($attrs->[0] eq 'ResultSet') {
             no strict 'refs';
             my $resultset_class = $self->_setup_resultset_class;
-            *{"$resultset_class\::$meth"} = *{"$self\::$meth"};
+            *{"$resultset_class\::$meth"} = $self->can($meth);
             undef *{"$self\::$meth"};
         }
     }