X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FObject%2FTable.pm;fp=lib%2FSQL%2FTranslator%2FObject%2FTable.pm;h=3ba3d6092f86466cfcab196921f0138da1f4b829;hb=a4eab010d6aac93bec5e46c102c293dff4123b3e;hp=13899338d0b1ed83432cf11dd047e718a2bab2d5;hpb=82e209aa083cf5f796661c71a862ebeb2da67e64;p=dbsrgits%2FSQL-Translator-2.0-ish.git

diff --git a/lib/SQL/Translator/Object/Table.pm b/lib/SQL/Translator/Object/Table.pm
index 1389933..3ba3d60 100644
--- a/lib/SQL/Translator/Object/Table.pm
+++ b/lib/SQL/Translator/Object/Table.pm
@@ -165,7 +165,7 @@ class SQL::Translator::Object::Table extends SQL::Translator::Object is dirty {
 
         my $primary_key = $self->primary_key;
         unless (defined $primary_key) {
-            $primary_key = SQL::Translator::Object::Constraint->new({ type => 'PRIMARY KEY' });
+            $primary_key = SQL::Translator::Object::Constraint->new( type => 'PRIMARY KEY' );
             $self->add_constraint($primary_key);
         }
         $primary_key->add_column( name => $column ) unless $primary_key->exists_column($column);