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-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=213209dd3980e1e3c1b27c45f38c104dea63c0c1;p=scpubgit%2FQ-Branch.git

convert undef value to expr call
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index dc9a3b5..45114e6 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;