From: Arthur Axel "fREW" Schmidt Date: Thu, 2 Sep 2010 04:21:19 +0000 (+0000) Subject: do not indent for the first select X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1a67e3a081221a2db334654eff110161815120a5;p=scpubgit%2FQ-Branch.git do not indent for the first select --- diff --git a/lib/SQL/Abstract/Tree.pm b/lib/SQL/Abstract/Tree.pm index 5ae9b99..f967dc9 100644 --- a/lib/SQL/Abstract/Tree.pm +++ b/lib/SQL/Abstract/Tree.pm @@ -198,6 +198,7 @@ sub whitespace { if (defined $ghetto_whitespacemap{lc $keyword}) { $before = $self->newline . $self->indent($depth + $ghetto_whitespacemap{lc $keyword}); } + $before = '' if $depth == 0 and lc $keyword eq 'select'; return [$before, $after]; }