From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 17 Sep 2018 00:12:41 +0000 (+0000)
Subject: eliminate (I hope) last and/or case in expansion
X-Git-Tag: v2.000000~3^2~471
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bf33c6892dcbb07f52380cfb22a37ffc043a3d23;p=dbsrgits%2FSQL-Abstract.git

eliminate (I hope) last and/or case in expansion
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index bd04ae1..78059d7 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -852,7 +852,10 @@ sub _expand_expr_hashpair {
         ? ($v = [ @{$v}[1..$#$v] ], $1)
         : ($self->{logic} || 'or')
     );
-    return +{ "-${this_logic}" => [ map $self->_expand_expr({ $k => $_ }, $this_logic), @$v ] };
+    return +{ -op => [
+      $this_logic,
+      map $self->_expand_expr({ $k => $_ }, $this_logic), @$v
+    ] };
   }
   if (my $literal = is_literal_value($v)) {
     unless (length $k) {
@@ -1270,6 +1273,7 @@ sub _where_op_OP {
   my ($self, undef, $v) = @_;
   my ($op, @args) = @$v;
   $op =~ s/^-// if length($op) > 1;
+  $op = lc($op);
   local $self->{_nested_func_lhs};
   if (my $h = $special{$op}) {
     return $self->$h(\@args);