From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 6 Oct 2014 04:39:16 +0000 (-0700)
Subject: add missing spaces in upsert
X-Git-Url: https://git.donarmstrong.com/?p=lib.git;a=commitdiff_plain;h=3c92f9030fe42e852eb5624c98cf7029cef66ac4

add missing spaces in upsert
---

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);