From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 2 Sep 2018 20:28:52 +0000 (+0000)
Subject: make undef value use is operator
X-Git-Tag: v1.90_01~489
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5a8599763f28d9aeca378584bf0d42f3dfe962f7;p=dbsrgits%2FSQL-Abstract.git

make undef value use is operator
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 02ea6dd..49b6ad2 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -1096,8 +1096,7 @@ sub _where_hashpair_SCALAR {
 sub _where_hashpair_UNDEF {
   my ($self, $k, $v) = @_;
   $self->_debug("UNDEF($k) means IS NULL");
-  my $sql = $self->_quote($k) . $self->_sqlcase(' is null');
-  return ($sql);
+  return $self->_where_hashpair_HASHREF($k, { -is => undef });
 }
 
 #======================================================================