From 009ee637a38d8bb9e5378a59b47f05493c7078b6 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 24 Mar 2014 12:04:43 -0700
Subject: [PATCH] fix ACL cache bug, RT#27352, fallout from RT#4696

---
 FS/FS/access_user.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm
index 33db1fba4..05d87c3be 100644
--- a/FS/FS/access_user.pm
+++ b/FS/FS/access_user.pm
@@ -469,7 +469,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"
-- 
2.11.0