From: ivan <ivan>
Date: Tue, 27 Jun 2000 11:27:55 +0000 (+0000)
Subject: logically identical, but -w safe
X-Git-Tag: freeside_1_3_0~122
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=952a38a1f13f58d8be92a501fc40b9bd66291867;p=freeside.git

logically identical, but -w safe
---

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