From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 12 Oct 2013 15:59:02 +0000 (+0000)
Subject: switch where wrapping order to look better (and make DBIC oraclejoin.t happy)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3cd75ed78c72f6275e1837d39cf36c11449a50d2;p=dbsrgits%2FData-Query.git

switch where wrapping order to look better (and make DBIC oraclejoin.t happy)
---

diff --git a/lib/Data/Query/Renderer/SQL/Naive.pm b/lib/Data/Query/Renderer/SQL/Naive.pm
index 3f2c1a6..df2fe36 100644
--- a/lib/Data/Query/Renderer/SQL/Naive.pm
+++ b/lib/Data/Query/Renderer/SQL/Naive.pm
@@ -359,7 +359,7 @@ sub _render_where {
   my ($self, $dq) = @_;
   my ($from, $where) = @{$dq}{qw(from where)};
   while (is_Where $from) {
-    $where = Operator({ 'SQL.Naive' => 'and' }, [ $where, $from->{where} ]);
+    $where = Operator({ 'SQL.Naive' => 'AND' }, [ $from->{where}, $where ]);
     $from = $from->{from};
   }
   my $keyword = (is_Group($from) ? 'HAVING' : 'WHERE');