From: Matt S Trout <mst@shadowcat.co.uk>
Date: Tue, 26 Mar 2019 02:51:50 +0000 (+0000)
Subject: switch more is expansion cases
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=325d3fb458ed892ceb73e3c4dcc03281f8d5ae25;p=scpubgit%2FQ-Branch.git

switch more is expansion cases
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 5a80fcb..aa1e95e 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -717,7 +717,8 @@ sub _expand_expr_hashpair_ident {
       : $op =~ $self->{inequality_op} ? 'is not'
       : $op =~ $self->{not_like_op}   ? belch("Supplying an undefined argument to '@{[ uc $op]}' is deprecated") && 'is not'
       : puke "unexpected operator '$op' with undef operand";
-      return +{ -op => [ $is.' null', $ik ] };
+
+      return $self->_expand_expr_hashpair($k => { $is, undef });
     }
     local our $Cur_Col_Meta = $k;
     return +{ -op => [