Set GIDs concurrently, to avoid MacOS bug

diff --git a/proc/proc-lib.pl b/proc/proc-lib.pl
index 7e46f9f..e211df1 100644 (file)
--- a/proc/proc-lib.pl
+++ b/proc/proc-lib.pl
@@ -96,12 +96,12 @@ return if ($module_info{'usermin'});        # already switched!
 if ($access{'uid'} < 0) {
        local @u = getpwnam($remote_user);
        @u || &error("Failed to find user $remote_user");
-       $( = $u[3]; $) = "$u[3] $u[3]";
+       ($(, $)) = ($u[3], "$u[3] $u[3]");
        ($>, $<) = ($u[2], $u[2]);
        }
 elsif ($access{'uid'}) {
        local @u = getpwuid($access{'uid'});
-       $( = $u[3]; $) = "$u[3] $u[3]";
+       ($(, $)) = ($u[3], "$u[3] $u[3]");
        ($>, $<) = ($u[2], $u[2]);
        }
 }