From: Luke Saunders <luke.saunders@gmail.com>
Date: Wed, 6 Aug 2008 18:32:00 +0000 (+0000)
Subject: fixed failing extra_source test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=96f8959eb49abaf32e4fa90b8e2b0aae469e795b;p=dbsrgits%2FDBIx-Class-Historic.git

fixed failing extra_source test
---

diff --git a/lib/DBIx/Class/Schema.pm b/lib/DBIx/Class/Schema.pm
index ae4f977..94bc72d 100644
--- a/lib/DBIx/Class/Schema.pm
+++ b/lib/DBIx/Class/Schema.pm
@@ -132,12 +132,11 @@ sub _register_source {
 
   $source->schema($self);
 
-  return if ($params->{extra});
-
   weaken($source->{schema}) if ref($self);
   if ($source->result_class) {
     my %map = %{$self->class_mappings};
     if (exists $map{$source->result_class}) {
+      return if ($params->{extra});
       warn $source->result_class . ' already has a source, use register_extra_source for additional sources';
     }
     $map{$source->result_class} = $moniker;