From 064b854f445b96607bb1193bb277f44a5b84b00a Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 27 Jun 2000 11:29:52 +0000
Subject: [PATCH] fix typo in last patch, and another gratuitous -w pleaser

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

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index c23ce941e..69913c18d 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 ( ! defined($record->{$_} || $record->{$_} eq '' ) {
+      if ( ! defined( $record->{$_} ) || $record->{$_} eq '' ) {
         if ( driver_name eq 'Pg' ) {
           "$_ IS NULL";
         } else {
@@ -184,7 +184,7 @@ sub qsearch {
   my $sth = $dbh->prepare_cached($statement) or croak $dbh->errstr;
 
   $sth->execute( map $record->{$_},
-    grep $record->{$_} ne '' && $record->{$_} ne undef, @fields
+    grep defined( $record->{$_} ) && $record->{$_} ne '', @fields
   ) or croak $dbh->errstr;
 
   if ( eval 'scalar(@FS::'. $table. '::ISA);' ) {
@@ -841,7 +841,7 @@ sub hfields {
 
 =head1 VERSION
 
-$Id: Record.pm,v 1.5 2000-06-27 11:27:55 ivan Exp $
+$Id: Record.pm,v 1.6 2000-06-27 11:29:52 ivan Exp $
 
 =head1 BUGS
 
-- 
2.11.0