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: v2.000000~3^2~510
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=40f5d97840530ba5abe30d261d1eb7508b89729c;p=dbsrgits%2FSQL-Abstract.git

make undef value use is operator
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 16cb20b..5718f8f 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 });
 }
 
 #======================================================================