diff options
| -rw-r--r-- | FS/FS/svc_acct.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index aa3e592a3..572a00853 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -1416,6 +1416,8 @@ Returns all RADIUS groups for this account (see L<FS::radius_usergroup>). sub radius_groups { my $self = shift; if ( $self->usergroup ) { + confess "specified usergroup is not an arrayref: ". $self->usergroup + unless ref($self->usergroup) eq 'ARRAY'; #when provisioning records, export callback runs in svc_Common.pm before #radius_usergroup records can be inserted... @{$self->usergroup}; |