From: Luke Saunders 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;