From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 24 Aug 2019 02:19:31 +0000 (+0000)
Subject: clean things up and better sqlacexpr
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eef0f2039477a1b18b7f95f689b602f0eca227d3;p=scpubgit%2FQ-Branch.git

clean things up and better sqlacexpr
---

diff --git a/lib/SQL/Abstract/Formatter.pm b/lib/SQL/Abstract/Formatter.pm
index b3c70ed..829b110 100644
--- a/lib/SQL/Abstract/Formatter.pm
+++ b/lib/SQL/Abstract/Formatter.pm
@@ -14,7 +14,6 @@ sub _join {
 
 sub format {
   my ($self, $join, @parts) = @_;
-::Dwarn [ J => $join => @parts ];
   my $sql = $self->_join($join, @parts);
   return $sql unless length($sql) > $self->max_width;
   local $self->{max_width} = $self->{max_width} - length($self->indent_by);
diff --git a/maint/sqlacexpr b/maint/sqlacexpr
index 827c808..a09ce2a 100755
--- a/maint/sqlacexpr
+++ b/maint/sqlacexpr
@@ -17,4 +17,5 @@ my ($q, @bind) = $sqlac->${\$ARGV[0]}(@args);
 
 Dwarn [ Q => @$q ];
 
-Dwarn [ $q->format, @bind ];
+print STDERR $q->format."\n";
+Dwarn \@bind;