[Bast-commits] r4430 - in DBIx-Class/0.08/trunk: . lib/DBIx/Class/Storage

[ash at dev.catalyst.perl.org]

Author: ash
Date: 2008-05-30 14:29:32 +0100 (Fri, 30 May 2008)
New Revision: 4430

Modified:
   DBIx-Class/0.08/trunk/Changes
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
Log:
Make ingore_{constraint,index}_names default

Modified: DBIx-Class/0.08/trunk/Changes
===================================================================
--- DBIx-Class/0.08/trunk/Changes	2008-05-30 13:20:26 UTC (rev 4429)
+++ DBIx-Class/0.08/trunk/Changes	2008-05-30 13:29:32 UTC (rev 4430)
@@ -16,7 +16,9 @@
         - Improve handling of explicit key attr in ResultSet::find
         - Add warnings for non-unique ResultSet::find queries
         - Changed Storage::DBI::Replication to Storage::DBI::Replicated, fixed
-		  some problems using this with versioned databases, added some docs
+          some problems using this with versioned databases, added some docs
+        - By default now deploy/diff et al. will ignore constraint and index 
+          names
 
 0.08010 2008-03-01 10:30
         - Fix t/94versioning.t so it passes with latest SQL::Translator

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2008-05-30 13:20:26 UTC (rev 4429)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2008-05-30 13:29:32 UTC (rev 4430)
@@ -1453,7 +1453,12 @@
   $databases ||= ['MySQL', 'SQLite', 'PostgreSQL'];
   $databases = [ $databases ] if(ref($databases) ne 'ARRAY');
   $version ||= $schema->VERSION || '1.x';
-  $sqltargs = { ( add_drop_table => 1 ), %{$sqltargs || {}} };
+  $sqltargs = {
+    add_drop_table => 1, 
+    ignore_constraint_names => 1,
+    ignore_index_names => 1,
+    %{$sqltargs || {}}
+  };
 
   $self->throw_exception(q{Can't create a ddl file without SQL::Translator 0.09: '}
       . $self->_check_sqlt_message . q{'})
@@ -1543,7 +1548,6 @@
           unless $dest_schema->name;
       }
 
-      $DB::single = 1;
       my $diff = SQL::Translator::Diff::schema_diff($source_schema, $db,
                                                     $dest_schema,   $db,
                                                     $sqltargs