X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_main.pm;h=6ca32871d0d2434e324554befd99ed168c7ca2a5;hp=86962ce6106912d487cd3cd98eef8e07e8165f5e;hb=30a64bab3009967a4c530c44c49df2ab4681fef1;hpb=9163d831264988af6065139c7531d59a1bb29c10

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