From 30a64bab3009967a4c530c44c49df2ab4681fef1 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 22 Jan 2004 00:21:25 +0000
Subject: [PATCH] fix cancel method

---
 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 86962ce61..6ca32871d 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1016,7 +1016,7 @@ Always returns a list: an empty list on success or a list of errors.
 
 sub cancel {
   my $self = shift;
-  grep { $_->cancel(@_) } $self->ncancelled_pkgs;
+  grep { $_ } map { $_->cancel(@_) } $self->ncancelled_pkgs;
 }
 
 =item agent
-- 
2.11.0