X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser%2FDDL%2FXML.pm;h=a53a405616f367e3ac4471911c0d0428a5396b79;hb=49eb21a3a6910bf8f7109fbfb06f7bb20c4eff33;hp=a21c560166d9cecf98d1c26048ead1ec2a1492cb;hpb=1c5b81b5ddd81bc1a74d9c8f60da5e1360114aa1;p=dbsrgits%2FSQL-Translator-2.0-ish.git

diff --git a/lib/SQL/Translator/Parser/DDL/XML.pm b/lib/SQL/Translator/Parser/DDL/XML.pm
index a21c560..a53a405 100644
--- a/lib/SQL/Translator/Parser/DDL/XML.pm
+++ b/lib/SQL/Translator/Parser/DDL/XML.pm
@@ -76,7 +76,7 @@ multi method parse(Any $data) {
             my $field = Column->new(%fdata);
             $table->add_column($field);
 
-            $table->primary_key( $field->name ) if $fdata{'is_primary_key'};
+            $field->is_primary_key(1) if $fdata{is_primary_key};
 
             #
             # TODO: