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-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a0fdc34f069ca43e0f7204ad29a51468243f5b9c;p=scpubgit%2FQ-Branch.git

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

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 752714b..79c6300 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}