From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 18 Mar 2019 04:19:21 +0000 (+0000)
Subject: de-hashpair array RHS-of-RHS case
X-Git-Tag: v1.90_01~373
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85acf9c406d76a31462ee14d579c6b822ace926c;p=dbsrgits%2FSQL-Abstract.git

de-hashpair array RHS-of-RHS case
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 4acd654..c54f17d 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -856,7 +856,7 @@ sub _expand_expr_hashpair {
       }
       return +{ -op => [
         $logic =~ /^-(.*)$/,
-        map $self->_expand_expr_hashpair($k => { $vk => $_ }),
+        map $self->_expand_expr({ $k => { $vk => $_ } }),
           @values
       ] };
     }