rename $sql to $code in Perl renderer

[dbsrgits/Data-Query.git] / lib / Data / Query / Renderer / Perl.pm

diff --git a/lib/Data/Query/Renderer/Perl.pm b/lib/Data/Query/Renderer/Perl.pm
index a522f2e..2ce0923 100644 (file)
--- 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 $_" }