X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract%2FTree.pm;fp=lib%2FSQL%2FAbstract%2FTree.pm;h=ed1b0384e22bb675688c56d4586f7bf2faa3bbed;hb=a47da23e228dc63685afbde3445d3c14559c203c;hp=86d206ca25ddccc0cd318d384d121bd22f15c7fa;hpb=39a95e35495f3a0dec44bcdf5256c3b21093f593;p=dbsrgits%2FSQL-Abstract.git

diff --git a/lib/SQL/Abstract/Tree.pm b/lib/SQL/Abstract/Tree.pm
index 86d206c..ed1b038 100644
--- a/lib/SQL/Abstract/Tree.pm
+++ b/lib/SQL/Abstract/Tree.pm
@@ -606,7 +606,8 @@ sub _unparse {
     return join (" $op ", map $self->_unparse($_, $bindargs, $depth), @{$args});
   }
   elsif ($op eq '-LIST' ) {
-    return join (', ', map $self->_unparse($_, $bindargs, $depth), @{$args});
+    return ($self->newline||'') . join (', ' . ($self->newline||''),
+      map $self->indent($depth + 1) . $self->_unparse($_, $bindargs, $depth), @{$args});
   }
   elsif ($op eq '-MISC' ) {
     return join (' ', map $self->_unparse($_, $bindargs, $depth), @{$args});