index fixes, oops

diff --git a/DBSchema.pm b/DBSchema.pm
index ab9b85a..4c8a93f 100644 (file)
--- a/DBSchema.pm
+++ b/DBSchema.pm
@@ -14,7 +14,7 @@ use DBIx::DBSchema::ColGroup::Index;
 #@ISA = qw(Exporter);
 @ISA = ();
 
-$VERSION = "0.15";
+$VERSION = "0.16";
 
 =head1 NAME
 

diff --git a/DBSchema/Table.pm b/DBSchema/Table.pm
index 7e8e35c..57c7c5c 100644 (file)
--- a/DBSchema/Table.pm
+++ b/DBSchema/Table.pm
@@ -343,19 +343,23 @@ sub sql_create_table {
     push @columns, map "INDEX ($_)", $self->index->sql_list;
   }
 
-  my @r =
+  my $indexnum = 1;
+
+  my @r = (
     "CREATE TABLE ". $self->name. " (\n  ". join(",\n  ", @columns). "\n)\n",
     ( map {
-      my($index) = $self->name. "__". $_ . "_index";
-      $index =~ s/,\s*/_/g;
+      #my($index) = $self->name. "__". $_ . "_idx";
+      #$index =~ s/,\s*/_/g;
+      my $index = $self->name. $indexnum++;
       "CREATE UNIQUE INDEX $index ON ". $self->name. " ($_)\n"
     } $self->unique->sql_list ),
     ( map {
-      my($index) = $self->name. "__". $_ . "_index";
-      $index =~ s/,\s*/_/g;
+      #my($index) = $self->name. "__". $_ . "_idx";
+      #$index =~ s/,\s*/_/g;
+      my $index = $self->name. $indexnum++;
       "CREATE INDEX $index ON ". $self->name. " ($_)\n"
     } $self->index->sql_list ),
-  ;  
+  );  
   $dbh->disconnect if $created_dbh;
   @r;
 }