[Bast-commits] r3169 - branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader

[blblack at dev.catalyst.perl.org]

Author: blblack
Date: 2007-03-30 23:46:18 +0100 (Fri, 30 Mar 2007)
New Revision: 3169

Modified:
   branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/Base.pm
Log:
only _load_external for the classes we are supposed to

Modified: branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/Base.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/Base.pm	2007-03-30 22:42:51 UTC (rev 3168)
+++ branches/DBIx-Class-Schema-Loader/current/lib/DBIx/Class/Schema/Loader/Base.pm	2007-03-30 22:46:18 UTC (rev 3169)
@@ -365,7 +365,7 @@
     }
 
     $self->_load_external($_)
-        for ($self->schema_class, values %{$self->classes});
+        for map { $self->classes->{$_} } @tables;
 
     $self->_dump_to_dir if $self->dump_directory;