[Bast-commits] r9739 - SQL-Abstract/1.x/trunk/lib/SQL

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-09-23 11:51:29 +0100 (Thu, 23 Sep 2010)
New Revision: 9739

Modified:
   SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm
Log:
Fix bindtype omission in -in handling

Modified: SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm	2010-09-23 01:26:42 UTC (rev 9738)
+++ SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm	2010-09-23 10:51:29 UTC (rev 9739)
@@ -948,12 +948,14 @@
           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};