From 3c92f9030fe42e852eb5624c98cf7029cef66ac4 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Sun, 5 Oct 2014 21:39:16 -0700 Subject: [PATCH] add missing spaces in upsert --- perl/generate_upsert.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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); -- 2.39.5