add missing spaces in upsert

diff --git a/perl/generate_upsert.pm b/perl/generate_upsert.pm
index c49228192bd24c8061ab22a8999377001305de9d..1c32fa792a7235aa5d3086e8c4bdb031e7977560 100644 (file)
--- 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);