X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract%2FTree.pm;h=c77dd1192c7fd64e69f3aed1d88edbcdb3c131a7;hb=203ce7d3dce3ec711431bbbeae6311b23e22ea7b;hp=e1292f70d4124284e3c94f88cc5caf7539ab5c08;hpb=d49e532353631fbb995b0047f3b3cc0f6761589f;p=dbsrgits%2FSQL-Abstract.git diff --git a/lib/SQL/Abstract/Tree.pm b/lib/SQL/Abstract/Tree.pm index e1292f7..c77dd11 100644 --- a/lib/SQL/Abstract/Tree.pm +++ b/lib/SQL/Abstract/Tree.pm @@ -182,10 +182,11 @@ sub unparse { return join (" $tree->[0] ", map {unparse($_)} @{$tree->[1]}); } else { - return sprintf "%s %s\n", $tree->[0], unparse ($tree->[1]); + return sprintf '%s %s', $tree->[0], unparse ($tree->[1]); } } +sub format { unparse(parse(@_)) } 1;