From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 17 Nov 2013 06:06:38 +0000 (+0000)
Subject: rename $sql to $code in Perl renderer
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1937d04fd6d2119464f650fec6992f4e0059151a;p=dbsrgits%2FData-Query.git

rename $sql to $code in Perl renderer
---

diff --git a/lib/Data/Query/Renderer/Perl.pm b/lib/Data/Query/Renderer/Perl.pm
index a522f2e..2ce0923 100644
--- a/lib/Data/Query/Renderer/Perl.pm
+++ b/lib/Data/Query/Renderer/Perl.pm
@@ -30,9 +30,9 @@ sub _flatten_structure {
         my $r = ref;
         if (!$r) { $_ }
         elsif ($r eq 'ARRAY') {
-          my ($sql, @b) = @{$self->_flatten_structure($_)};
+          my ($code, @b) = @{$self->_flatten_structure($_)};
           push @bind, @b;
-          $sql;
+          $code;
         }
         elsif ($r eq 'HASH') { push @bind, $_; () }
         else { die "_flatten_structure can't handle ref type $r for $_" }