test is case insensitive, result should be lower cased
Matt S Trout [Thu, 19 Sep 2019 19:26:32 +0000 (19:26 +0000)]
lib/SQL/Abstract.pm

index 4fbd3a4..6ed4100 100644 (file)
@@ -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}