From: ivan <ivan>
Date: Sun, 8 Jul 2001 00:37:39 +0000 (+0000)
Subject: patch from Mark Ethan Trostler <mark@zzo.com>
X-Git-Tag: DBIx_DBSchema_0_17~2
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=d5422712908a97eb3afbf49cdab22c803e22f5df;p=DBIx-DBSchema.git

patch from Mark Ethan Trostler <mark@zzo.com>
---

diff --git a/DBSchema/Table.pm b/DBSchema/Table.pm
index f7c1a21..bda5a31 100644
--- a/DBSchema/Table.pm
+++ b/DBSchema/Table.pm
@@ -378,20 +378,25 @@ sub sql_create_table {
   my $indexnum = 1;
 
   my @r = (
-    "CREATE TABLE ". $self->name. " (\n  ". join(",\n  ", @columns). "\n)\n",
-    ( map {
-      #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. "__". $_ . "_idx";
-      #$index =~ s/,\s*/_/g;
-      my $index = $self->name. $indexnum++;
-      "CREATE INDEX $index ON ". $self->name. " ($_)\n"
-    } $self->index->sql_list ),
-  );  
+    "CREATE TABLE ". $self->name. " (\n  ". join(",\n  ", @columns). "\n)\n"
+  );
+
+  push @r, map {
+                 #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
+    if $self->unique;
+
+  push @r, map {
+                 #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
+    if $self->index;
+
   $dbh->disconnect if $created_dbh;
   @r;
 }