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

[ash at dev.catalyst.perl.org]

Author: ash
Date: 2007-11-24 21:24:53 +0000 (Sat, 24 Nov 2007)
New Revision: 3889

Modified:
   DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm
Log:
Sort tables for consistent output

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	2007-11-22 15:27:23 UTC (rev 3888)
+++ DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm	2007-11-24 21:24:53 UTC (rev 3889)
@@ -65,7 +65,7 @@
     }
 
 
-    foreach my $moniker (@monikers)
+    foreach my $moniker (sort @monikers)
     {
         my $source = $dbixschema->source($moniker);
 
@@ -111,7 +111,7 @@
 
         my %created_FK_rels;
 
-        foreach my $rel (@rels)
+        foreach my $rel (sort @rels)
         {
             my $rel_info = $source->relationship_info($rel);