From: Matt S Trout <mst@shadowcat.co.uk>
Date: Tue, 11 Sep 2018 22:07:46 +0000 (+0000)
Subject: need to normalize op to avoid spurious use of old unary ops
X-Git-Tag: v2.000000~3^2~488
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6df2a8630720e443037178893ae80b3904f51363;p=dbsrgits%2FSQL-Abstract.git

need to normalize op to avoid spurious use of old unary ops
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index d44ef82..9725b00 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -640,6 +640,7 @@ sub _expand_expr_hashpair {
       }
       my ($vk, $vv) = %$v;
       $vk =~ s/^-//;
+      $vk = lc($vk);
       if ($vk =~ /^(?:not[ _])?between$/) {
         my @rhs = map $self->_expand_expr($_),
                     ref($vv) eq 'ARRAY' ? @$vv : $vv;