Mercurial > pub > Impl

diff Lib/IMPL/ORM/Schema/TransformToSQL.pm @ 168:6148f89bb7bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
IMPL::SQL::Schema::Traits::Diff alfa version IMPL::lang added hash traits
author sourcer
date Mon, 16 May 2011 04:30:38 +0400
parents 4267a2ac3d46
children
line wrap: on
line diff
--- a/Lib/IMPL/ORM/Schema/TransformToSQL.pm	Thu May 12 08:57:19 2011 +0400
+++ b/Lib/IMPL/ORM/Schema/TransformToSQL.pm	Mon May 16 04:30:38 2011 +0400
@@ -81,7 +81,7 @@
     my $tableForeign = $sqlSchema->Tables->{$relation->target};
     my $prefix = $relation->name;
     
-    my @fkColumns = @{$tableForeign->PrimaryKey->Columns};
+    my @fkColumns = $tableForeign->PrimaryKey->columns;
     
     if (@fkColumns > 1) {
         @fkColumns = map
@@ -111,7 +111,7 @@
     my $tableForeign = $sqlSchema->Tables->{$relation->target};
     my $prefix = $relation->name;
     
-    my @fkColumns = @{$table->PrimaryKey->Columns};
+    my @fkColumns = $table->PrimaryKey->columns;
     
     if (@fkColumns > 1 ) {
         @fkColumns = map $tableForeign->InsertColumn({