From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 17 Sep 2018 00:07:25 +0000 (+0000)
Subject: { x => { -and => ... } } converted to op
X-Git-Tag: v1.90_01~452
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e62fe58aee48761fbd76134f3dba163e13f28821;p=dbsrgits%2FSQL-Abstract.git

{ x => { -and => ... } } converted to op
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index b0b1af2..cc89eb6 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -775,7 +775,8 @@ sub _expand_expr_hashpair {
     }
     if ($vk =~ /^(and|or)$/) {
       if (ref($vv) eq 'HASH') {
-        return +{ "-${vk}" => [
+        return +{ -op => [
+          $vk,
           map $self->_expand_expr_hashpair($k, { $_ => $vv->{$_} }),
             sort keys %$vv
         ] };