From: Arthur Axel "fREW" Schmidt <frioux@gmail.com>
Date: Mon, 6 Sep 2010 16:19:37 +0000 (+0000)
Subject: add space to fix stuff pressing up against last paren
X-Git-Tag: v1.70~88
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f088a68d4d4c441167ca5c582c84a04a52fdac98;p=dbsrgits%2FSQL-Abstract.git

add space to fix stuff pressing up against last paren
---

diff --git a/lib/SQL/Abstract/Tree.pm b/lib/SQL/Abstract/Tree.pm
index 18cc184..7870e48 100644
--- a/lib/SQL/Abstract/Tree.pm
+++ b/lib/SQL/Abstract/Tree.pm
@@ -291,7 +291,7 @@ sub unparse {
     return '(' .
       join(' ',
         map $self->unparse($_, $depth + 2), @{$cdr}) .
-    (_is_select($cdr)?( $self->newline||'' ).$self->indent($depth + 1):'') . ')';
+    (_is_select($cdr)?( $self->newline||'' ).$self->indent($depth + 1):'') . ') ';
   }
   elsif ($car eq 'OR' or $car eq 'AND' or (grep { $car =~ /^ $_ $/xi } @binary_op_keywords ) ) {
     return join (" $car ", map $self->unparse($_, $depth), @{$cdr});