From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 17 Sep 2018 23:09:17 +0000 (+0000)
Subject: no space to the LHS of a comma
X-Git-Tag: v1.90_01~428
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f9c5405d768123f6be0da6b0c3274dc44841cbe;p=dbsrgits%2FSQL-Abstract.git

no space to the LHS of a comma
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index fa9cc5c..1222eb4 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -995,7 +995,7 @@ sub _render_op {
   } else {
      my @parts = map [ $self->_render_expr($_) ], @args;
      my ($final_sql) = map +($op =~ /^(and|or)$/ ? "(${_})" : $_), join(
-       ' '.$self->_sqlcase($final_op).' ',
+       ($final_op eq ',' ? '' : ' ').$self->_sqlcase($final_op).' ',
        map $_->[0], @parts
      );
      return (