fix cust_svc_unsorted when there are no services, RT#27267

diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm
index cabecd6..bf423cd 100644 (file)
--- a/FS/FS/cust_pkg.pm
+++ b/FS/FS/cust_pkg.pm
@@ -2799,7 +2799,7 @@ sub cust_svc_unsorted {
 sub cust_svc_unsorted_arrayref {
   my $self = shift;
 
-  return () unless $self->num_cust_svc(@_);
+  return [] unless $self->num_cust_svc(@_);
 
   my %opt = ();
   if ( @_ && $_[0] =~ /^\d+/ ) {