[Bast-commits] r4575 - DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx

[plu at dev.catalyst.perl.org]

Author: plu
Date: 2008-07-15 09:36:20 +0100 (Tue, 15 Jul 2008)
New Revision: 4575

Modified:
   DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm
Log:
Skip custom query sources


Modified: DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm	2008-07-14 14:01:50 UTC (rev 4574)
+++ DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm	2008-07-15 08:36:20 UTC (rev 4575)
@@ -69,6 +69,9 @@
     foreach my $moniker (sort @monikers)
     {
         my $source = $dbicschema->source($moniker);
+        
+        # Skip custom query sources
+        next if ref($source->name);
 
         # Its possible to have multiple DBIC source using same table
         next if $seen_tables{$source->name}++;