make sure reference_fields/reference_columns is not undef
Justin Hunter [Thu, 3 Dec 2009 15:36:28 +0000 (07:36 -0800)]
lib/SQL/Translator/Parser/DDL/MySQL.pm

index 1ec752a..b7e05a0 100644 (file)
@@ -136,7 +136,7 @@ role SQL::Translator::Parser::DDL::MySQL {
                     $constraint = ForeignKey->new({ name => $cdata->{name} || '',
                                                     table => $table,
                                                     reference_table => $cdata->{reference_table},
-                                                    reference_columns => $cdata->{reference_fields},
+                                                    defined $cdata->{reference_fields} ? (reference_columns => $cdata->{reference_fields}) : (),
                                                     on_delete => $cdata->{on_delete} || $cdata->{on_delete_do},
                                                     on_update => $cdata->{on_update} || $cdata->{on_update_do} });
                     $table->get_column($_)->is_foreign_key(1) for @{$cdata->{fields}};