X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract%2FFormatter.pm;h=0f0daf31640debd50265845dad089f7cfda2945c;hb=3f9c7484794b28ce49b01f6fd0e841b07fce7943;hp=51645f8a5cf71f321aca89e7c9101ca76932a6e8;hpb=21ad3e4bd0b2f6488e88407dd2d1a7e4916978a1;p=scpubgit%2FQ-Branch.git

diff --git a/lib/SQL/Abstract/Formatter.pm b/lib/SQL/Abstract/Formatter.pm
index 51645f8..0f0daf3 100644
--- a/lib/SQL/Abstract/Formatter.pm
+++ b/lib/SQL/Abstract/Formatter.pm
@@ -40,6 +40,7 @@ sub _fold_sql {
   my $line_proto = $indent.$nl_post;
   PART: foreach my $idx (0..$#parts) {
     my $p = $parts[$idx];
+#::DwarnT STARTPART => $p, \@res, $line, $line_orig;
     my $pre = ($line ne $line_orig ? $join : '');
     my $j_part = $pre.(my $j = ref($p) ? $self->_join(@$p) : $p);
     if (length($j_part) + length($line) + $join_len <= $w) {
@@ -70,6 +71,8 @@ sub _fold_sql {
     $folded =~ s/\n\Z//;
     push @res, $folded.($idx == $#parts ? '' : $nl_pre)."\n";
     $line_orig = $line = $idx == $#parts ? '' : $line_proto;
+  } continue {
+#::DwarnT ENDPART => $parts[$idx], \@res, $line, $line_orig;
   }
   return join '', @res, $line;
 }