X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_main.pm;h=986fef3a5d51fb8ea68ba0789486277dc18914cb;hb=d6404e4599cded2b15c85b822008022593146d1b;hp=417937a2448a134622ac922ac8d8011174be5920;hpb=a851e7c263db2e7040bd2e29a9bf44b80bd8eba9;p=freeside.git

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 417937a24..986fef3a5 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1000,7 +1000,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