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 (file)
--- 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;