diff --git a/acl/save_acl.cgi b/acl/save_acl.cgi index 1b0300f5c..ec8b15112 100755 --- a/acl/save_acl.cgi +++ b/acl/save_acl.cgi @@ -40,14 +40,6 @@ else { # Use user inputs $maccess{'rbac'} = 0 if (defined($in{'rbac'})); &foreign_require($in{'_acl_mod'}, "acl_security.pl"); - if ($in{'_acl_mod'}) { - local $pkg = $in{'_acl_mod'}; - $pkg =~ s/[^A-Za-z0-9]/_/g; - eval "\%${pkg}::in = \%in"; - } - else { - %global::in = %in; - } &foreign_call($in{'_acl_mod'}, "acl_security_save", \%maccess, \%in); } diff --git a/acl/save_group.cgi b/acl/save_group.cgi index a7fbff38c..745414344 100755 --- a/acl/save_group.cgi +++ b/acl/save_group.cgi @@ -118,9 +118,7 @@ else { if ($in{'old'} && $in{'acl_security_form'}) { # Update group's global ACL &foreign_require("", "acl_security.pl"); - %global::in = %in; - &foreign_call("", "acl_security_save", - \%uaccess, \%in); + &foreign_call("", "acl_security_save", \%uaccess, \%in); $aclfile = "$config_directory/$in{'name'}.gacl"; &lock_file($aclfile); &write_file($aclfile, \%uaccess); diff --git a/acl/save_user.cgi b/acl/save_user.cgi index 69238d93e..d729ca350 100755 --- a/acl/save_user.cgi +++ b/acl/save_user.cgi @@ -343,9 +343,7 @@ else { if ($in{'old'} && $in{'acl_security_form'} && !$group) { # Update user's global ACL &foreign_require("", "acl_security.pl"); - %global::in = %in; - &foreign_call("", "acl_security_save", - \%uaccess, \%in); + &foreign_call("", "acl_security_save", \%uaccess, \%in); $aclfile = "$config_directory/$in{'name'}.acl"; &lock_file($aclfile); &write_file($aclfile, \%uaccess);