From: Peter Rabbitson <ribasushi@cpan.org>
Date: Thu, 23 Sep 2010 10:51:29 +0000 (+0000)
Subject: Fix bindtype omission in -in handling
X-Git-Tag: v1.70~48
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FSQL-Abstract.git;a=commitdiff_plain;h=88a899390925fcded12aedf9efab3c545db860bd

Fix bindtype omission in -in handling
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index c39fde1..4d2e49f 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -948,12 +948,14 @@ sub _where_field_IN {
           push @all_bind, @bind;
         }
 
-        my $sql = sprintf ('%s %s ( %s )',
-          $label,
-          $op,
-          join (', ', @all_sql)
+        return (
+          sprintf ('%s %s ( %s )',
+            $label,
+            $op,
+            join (', ', @all_sql)
+          ),
+          $self->_bindtype($k, @all_bind),
         );
-        return ($sql, @all_bind);
       }
       else { # empty list : some databases won't understand "IN ()", so DWIM
         my $sql = ($op =~ /\bnot\b/i) ? $self->{sqltrue} : $self->{sqlfalse};