X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=inline;f=FS%2FFS%2Faccess_user.pm;h=5b2cad8dd8f52c58054853a5f3f405e00cd889fc;hb=3438e7d6bea0f7917db89d678d553694094cc599;hp=08021ba7144f418c0421c5816f3870a64f93c8bb;hpb=1aa2f26487209054ed82f38130c73015635b5705;p=freeside.git

diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm
index 08021ba71..5b2cad8dd 100644
--- a/FS/FS/access_user.pm
+++ b/FS/FS/access_user.pm
@@ -454,7 +454,7 @@ sub access_right {
     unless ( grep !exists($self->{_ACLcache}{$_}), @$rightname ) {
       warn "$me ACL cache hit for ". join(', ', @$rightname). "\n"
         if $DEBUG;
-      return grep $self->{_ACLcache}{$_}, @$rightname
+      return scalar( grep $self->{_ACLcache}{$_}, @$rightname );
     }
 
     warn "$me ACL cache miss for ". join(', ', @$rightname). "\n"