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';
}
# 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
@@ -405,7 +405,7 @@ sub make_row {
# sorts here are just to make this sub testeable
return "$verb INTO $self->{dst_db_tbl}("
. join(', ', map { $q->quote($_) } sort (@cols))
. join(', ', map { $q->quote($_) } @cols)
. ') VALUES ('
. join(', ',
map {
@@ -416,7 +416,7 @@ sub make_row {
is_char => $is_char,
is_float => $is_float,
)
} sort(@cols))
} @cols)
. ')';
}