From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 16 Sep 2019 19:01:35 +0000 (+0000)
Subject: need $join having removed the space-after-), and resetting the proto was bad
X-Git-Tag: v2.000000~3^2~146
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2d4a4d5fffd078c5aca4558b4f475c90ef4a3b1c;p=dbsrgits%2FSQL-Abstract.git

need $join having removed the space-after-), and resetting the proto was bad
---

diff --git a/lib/SQL/Abstract/Formatter.pm b/lib/SQL/Abstract/Formatter.pm
index 34db055..efbd912 100644
--- a/lib/SQL/Abstract/Formatter.pm
+++ b/lib/SQL/Abstract/Formatter.pm
@@ -54,14 +54,13 @@ sub _fold_sql {
       $folded =~ s/\n\Z//;
       push @res, $folded."\n";
       $line_orig = $line
-         = $indent0.')'.($idx == $#parts ? '' : $nl_post);
+         = $indent0.')'.($idx == $#parts ? '' : $join);
       next PART;
     }
     if ($line ne $line_orig) {
       push @res, $line.($idx == $#parts ? '' : $nl_pre)."\n";
     }
     if (length($line = $line_proto.$j) <= $w) {
-      $line_proto = $line;
       next PART;
     }
     my $innerdent = @res ? $indent : $next_indent;