Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Multiple group machines
Message-ID: <8610@jpl-devvax.JPL.NASA.GOV>
Date: 5 Jul 90 22:40:42 GMT
References: <1990Jul5.133847.11129@uvaarpa.Virginia.EDU>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 11

You can probably do setgroups if you have syscall.  Something like:

    do 'syscall.h' || die "Did you run makelib on syscall.h?\n";

    $ngroups = @newgroups;
    syscall(&SYS_setgroups, $ngroups, pack("i$ngroups", @newgroups));

Check the "i" format against your system--some systems may want "s" instead.
I think there are even some systems where the documentation lies.

Larry