From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 28 Jul 2012 19:48:06 +0000 (+0000)
Subject: slight syntactical cleanup
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=60cbee3337c48a8a51428057882cfacaca18b2fc;p=dbsrgits%2FData-Query.git

slight syntactical cleanup
---

diff --git a/lib/Data/Query/Renderer/SQL/Slice/FetchFirst.pm b/lib/Data/Query/Renderer/SQL/Slice/FetchFirst.pm
index 7a3234d..3579215 100644
--- a/lib/Data/Query/Renderer/SQL/Slice/FetchFirst.pm
+++ b/lib/Data/Query/Renderer/SQL/Slice/FetchFirst.pm
@@ -98,10 +98,14 @@ sub _render_slice {
           \@outside_select_list,
           compose {
             Order($order_map{$b->{by}}, $b->{reverse}, $a)
-          } @order_nodes, Alias($default_inside_alias, $_)
+          } (
+            @order_nodes,
+            Alias($default_inside_alias, $_)
+          )
         )
         : $_
-    } Slice(
+    } (
+      Slice(
         undef, $dq->{limit},
         Select(
           [
@@ -130,6 +134,7 @@ sub _render_slice {
           )
         )
       )
+    )
   );
 }