Remove useless %in export

diff --git a/acl/save_acl.cgi b/acl/save_acl.cgi
index 1b0300f..ec8b151 100755 (executable)
--- 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 a7fbff3..7454143 100755 (executable)
--- 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 69238d9..d729ca3 100755 (executable)
--- 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);