make undef value use is operator
Matt S Trout [Sun, 2 Sep 2018 20:28:52 +0000 (20:28 +0000)]
lib/SQL/Abstract.pm

index 02ea6dd..49b6ad2 100644 (file)
@@ -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 });
 }
 
 #======================================================================