[Bast-commits] r4735 - DBIx-Class/0.08/trunk/lib/DBIx/Class

[lukes at dev.catalyst.perl.org]

Author: lukes
Date: 2008-08-06 19:32:00 +0100 (Wed, 06 Aug 2008)
New Revision: 4735

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema.pm
Log:
fixed failing extra_source test

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema.pm	2008-08-06 17:03:22 UTC (rev 4734)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema.pm	2008-08-06 18:32:00 UTC (rev 4735)
@@ -132,12 +132,11 @@
 
   $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;