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: v2.000000~3^2~449
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2e44d687cdab2c81b2779d2bff3db6bca821033c;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 e0d58cc..5fae41f 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 (