From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 27 Mar 2019 03:27:31 +0000 (+0000)
Subject: switch value defaulting in _in expansion to standard
X-Git-Tag: v1.90_01~291
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2282f2b7ae47500016cc7c5bfce6deef331582a7;p=dbsrgits%2FSQL-Abstract.git

switch value defaulting in _in expansion to standard
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 40cb08c..24b2396 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -1014,8 +1014,7 @@ sub _expand_in {
   ;
   puke("Argument passed to the '${\uc($op)}' operator can not be undefined")
     if !defined($vv);
-  my @rhs = map $self->_expand_expr($_),
-              map { ref($_) ? $_ : { -bind => [ $k, $_ ] } }
+  my @rhs = map $self->expand_expr($_, -value),
               map { defined($_) ? $_: puke($undef_err) }
                 (ref($vv) eq 'ARRAY' ? @$vv : $vv);
   return $self->${\($op =~ /^not/ ? 'sqltrue' : 'sqlfalse')} unless @rhs;