X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fsvc_acct.pm;h=572a00853d161b00f033dcaab438a0ee3b97baec;hp=aa3e592a345950485b9f0bef06e2d2c0dd6098d9;hb=e55f806e5ba30a82c0c03dc1fc53f6e13fffb1bb;hpb=e39b961f3da26df319c9f116094d2386b2fa2050

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};