PT-96 Fixed changehandler sort that were causing problems.

This commit is contained in:
Carlos Salguero
2017-03-10 11:55:23 -03:00
parent 9a5b0d4b95
commit b09e70a5a2

View File

@@ -223,7 +223,7 @@ sub __queue {
$action = $action eq 'DELETE' ? $action : 'REPLACE'; $action = $action eq 'DELETE' ? $action : 'REPLACE';
} }
# The sort in this line is just to make it teasteable # The sort in this line is just to make it teasteable
push @{$self->{$action}}, [ $row, \sort(@$cols), $dbh ]; push @{$self->{$action}}, [ $row, $cols, $dbh ];
} }
# Sub: process_rows # Sub: process_rows
@@ -405,7 +405,7 @@ sub make_row {
# sorts here are just to make this sub testeable # sorts here are just to make this sub testeable
return "$verb INTO $self->{dst_db_tbl}(" return "$verb INTO $self->{dst_db_tbl}("
. join(', ', map { $q->quote($_) } sort (@cols)) . join(', ', map { $q->quote($_) } @cols)
. ') VALUES (' . ') VALUES ('
. join(', ', . join(', ',
map { map {
@@ -416,7 +416,7 @@ sub make_row {
is_char => $is_char, is_char => $is_char,
is_float => $is_float, is_float => $is_float,
) )
} sort(@cols)) } @cols)
. ')'; . ')';
} }