With Perl 5.20 the helper exits with many errors similar to:
Global symbol "$groupSID" requires explicit package name at
/usr/libexec/squid/ext_wbinfo_group_acl
#
use vars qw/ %opt /;
+my $user;
+my $group;
+my @groups;
+my $ans;
+
# Disable output buffering
$|=1;
# Check if a user belongs to a group
#
sub check {
- local($user, $group) = @_;
+ my $groupSID;
+ my $groupGID;
+ my @tmpuser;
+
+ our($user, $group) = @_;
if ($opt{K} && ($user =~ m/\@/)) {
@tmpuser = split(/\@/, $user);
$user = "$tmpuser[1]\\$tmpuser[0]";