From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 18 Mar 2019 04:15:26 +0000 (+0000)
Subject: convert undef value to expr call
X-Git-Tag: v2.000000~3^2~397
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6c46506133c97ae9faac1a2cf213c2a6bc9f845d;p=dbsrgits%2FSQL-Abstract.git

convert undef value to expr call
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 0f7302e..edd134d 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -704,7 +704,7 @@ sub _expand_expr_hashpair {
       and not defined $v->{-value}
     )
   ) {
-    return $self->_expand_expr_hashpair($k => { $self->{cmp} => undef });
+    return $self->_expand_expr({ $k => { $self->{cmp} => undef } });
   }
   if (!ref($v) or Scalar::Util::blessed($v)) {
     my $d = our $Default_Scalar_To;