From 952a38a1f13f58d8be92a501fc40b9bd66291867 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 27 Jun 2000 11:27:55 +0000
Subject: [PATCH] logically identical, but -w safe

---
 FS/FS/Record.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 0d989e300..c23ce941e 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -168,7 +168,7 @@ sub qsearch {
   my $statement = "SELECT * FROM $table";
   if ( @fields ) {
     $statement .= " WHERE ". join(' AND ', map {
-      if ( $record->{$_} eq '' || $record->{$_} eq undef ) {
+      if ( ! defined($record->{$_} || $record->{$_} eq '' ) {
         if ( driver_name eq 'Pg' ) {
           "$_ IS NULL";
         } else {
@@ -841,7 +841,7 @@ sub hfields {
 
 =head1 VERSION
 
-$Id: Record.pm,v 1.4 2000-06-23 12:25:59 ivan Exp $
+$Id: Record.pm,v 1.5 2000-06-27 11:27:55 ivan Exp $
 
 =head1 BUGS
 
-- 
2.20.1