From: Matt S Trout <mst@shadowcat.co.uk>
Date: Thu, 19 Sep 2019 19:26:32 +0000 (+0000)
Subject: test is case insensitive, result should be lower cased
X-Git-Tag: v2.000000~3^2~138
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=008c2dd374b6b2a6fb06449752fbbf83947d5b71;p=dbsrgits%2FSQL-Abstract.git

test is case insensitive, result should be lower cased
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 4fbd3a4..6ed4100 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -795,7 +795,7 @@ sub _expand_hashtriple {
   if (ref($vv) eq 'ARRAY') {
     my @raw = @$vv;
     my $logic = (defined($raw[0]) and $raw[0] =~ /^-(and|or)$/i)
-      ? (shift(@raw), $1) : 'or';
+      ? (shift(@raw), lc $1) : 'or';
     my @values = map +{ $vk => $_ }, @raw;
     if (
       $op =~ $self->{inequality_op}