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=7506978f7b3dad8b0db3af89e887c41a4302cc3d;hb=e1f953521dafedd052a755e49ce32c0bb96f6c1d;hp=3ba3d6092f86466cfcab196921f0138da1f4b829;hpb=a4eab010d6aac93bec5e46c102c293dff4123b3e;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 3ba3d60..7506978 100644
--- a/lib/SQL/Translator/Object/Table.pm
+++ b/lib/SQL/Translator/Object/Table.pm
@@ -168,7 +168,7 @@ class SQL::Translator::Object::Table extends SQL::Translator::Object is dirty {
             $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);
+        $primary_key->add_column({ name => $column }) unless $primary_key->exists_column($column);
         return $primary_key;
     }