From ce59de92405c458fc76cd1eb10d9d335f91e60d5 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Wed, 29 Jan 2014 16:31:22 -0800 Subject: [PATCH] quiet warning --- FS/FS/cust_main/Search.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/FS/FS/cust_main/Search.pm b/FS/FS/cust_main/Search.pm index b52b3596a..76d141035 100644 --- a/FS/FS/cust_main/Search.pm +++ b/FS/FS/cust_main/Search.pm @@ -1247,7 +1247,7 @@ sub append_fuzzyfiles_fuzzyfield { my ($field, $table) = reverse split('\.', $fuzzyfield); $table ||= 'cust_main'; - return unless length($value); + return unless defined($value) && length($value); open(CACHE, '>>:encoding(UTF-8)', "$dir/$table.$field" ) or die "can't open $dir/$table.$field: $!"; -- 2.11.0