From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 1 Apr 2019 01:01:49 +0000 (+0000)
Subject: expand between better
X-Git-Tag: v1.90_01~283
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6ed67830941d821ae8d014eed0384ffd07ab520e;p=dbsrgits%2FSQL-Abstract.git

expand between better
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 131126b..aa034b1 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -986,7 +986,6 @@ sub _expand_between {
   my ($self, $op, $vv, $k) = @_;
   $op =~ s/^-//;
   $k = shift @{$vv = [ @$vv ]} unless defined $k;
-  local our $Cur_Col_Meta = $k;
   my @rhs = map $self->_expand_expr($_),
               ref($vv) eq 'ARRAY' ? @$vv : $vv;
   unless (
@@ -998,7 +997,7 @@ sub _expand_between {
   }
   return +{ -op => [
     $op,
-    $self->_expand_ident(-ident => $k),
+    $self->expand_expr($k, -ident),
     @rhs
   ] }
 }