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: v1.90_01~467
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c98a86ed886377f38533ee650ec955d643fe8090;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 216d64d..66e0af0 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;