X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=perl%2Fgenerate_upsert.pm;h=1c32fa792a7235aa5d3086e8c4bdb031e7977560;hb=HEAD;hp=c49228192bd24c8061ab22a8999377001305de9d;hpb=1e57e5c0c06dbbad552695ea1f8793effed0ec5f;p=lib.git

diff --git a/perl/generate_upsert.pm b/perl/generate_upsert.pm
index c492281..1c32fa7 100644
--- a/perl/generate_upsert.pm
+++ b/perl/generate_upsert.pm
@@ -39,9 +39,9 @@ sub generate_upsert{
     my @cols = map {ref($_)?$_->[0]:$_} @{$param{columns}};
     my %cols_types;
     @cols_types{@keys,@cols} = map {ref($_)?($_->[0].'::'.$_->[1]):$_} @{$param{keys}},@{$param{columns}};
-    my $cols = join(',',@keys,@cols);
-    my $cols_types = join(',',map{$cols_types{$_}} @cols);
-    my $placeholders = join(',',('?') x (@cols + @keys));
+    my $cols = join(', ',@keys,@cols);
+    my $cols_types = join(', ',map{$cols_types{$_}} @keys, @cols);
+    my $placeholders = join(', ',('?') x (@cols + @keys));
     my $set = join(",\n",map {qq($_ = new_values.$cols_types{$_})} @cols);
     my $where_up = join(' AND ',map {qq(up.$cols_types{$_} = new_values.$cols_types{$_})} @keys);
     my $where_set = join(' AND ',map {qq(t.$cols_types{$_} = new_values.$cols_types{$_})} @keys);