[Bast-commits] r9672 - SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-09-02 05:21:19 +0100 (Thu, 02 Sep 2010)
New Revision: 9672

Modified:
   SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm
Log:
do not indent for the first select

Modified: SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm
===================================================================
--- SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm	2010-09-02 04:14:44 UTC (rev 9671)
+++ SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm	2010-09-02 04:21:19 UTC (rev 9672)
@@ -198,6 +198,7 @@
    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];
 }