From d36f8467522fc1cf91775dfeffc15308f2c3034b Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 30 Apr 2004 20:22:49 +0000
Subject: [PATCH] eliminate spurious "multiple records in scalar search"
 warning

---
 FS/FS/cust_main.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 2f01111ef..f275d10fe 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1537,7 +1537,7 @@ sub collect {
              || $a->weight    <=> $b->weight
              || $a->eventpart <=> $b->eventpart }
         grep { $_->seconds <= ( $invoice_time - $cust_bill->_date )
-               && ! qsearchs( 'cust_bill_event', {
+               && ! qsearch( 'cust_bill_event', {
                                 'invnum'    => $cust_bill->invnum,
                                 'eventpart' => $_->eventpart,
                                 'status'    => 'done',
-- 
2.11.0