From test-cvs-return-1576-apmail-httpd-test-cvs-archive=httpd.apache.org@httpd.apache.org Tue Dec 16 20:41:47 2003 Return-Path: Delivered-To: apmail-httpd-test-cvs-archive@www.apache.org Received: (qmail 50982 invoked from network); 16 Dec 2003 20:41:47 -0000 Received: from daedalus.apache.org (HELO mail.apache.org) (208.185.179.12) by minotaur-2.apache.org with SMTP; 16 Dec 2003 20:41:47 -0000 Received: (qmail 40787 invoked by uid 500); 16 Dec 2003 20:41:36 -0000 Delivered-To: apmail-httpd-test-cvs-archive@httpd.apache.org Received: (qmail 40731 invoked by uid 500); 16 Dec 2003 20:41:36 -0000 Mailing-List: contact test-cvs-help@httpd.apache.org; run by ezmlm Precedence: bulk Reply-To: test-dev@httpd.apache.org list-help: list-unsubscribe: list-post: Delivered-To: mailing list test-cvs@httpd.apache.org Received: (qmail 40718 invoked from network); 16 Dec 2003 20:41:35 -0000 Received: from unknown (HELO minotaur.apache.org) (209.237.227.194) by daedalus.apache.org with SMTP; 16 Dec 2003 20:41:35 -0000 Received: (qmail 50966 invoked by uid 1072); 16 Dec 2003 20:41:46 -0000 Date: 16 Dec 2003 20:41:46 -0000 Message-ID: <20031216204146.50965.qmail@minotaur.apache.org> From: stas@apache.org To: httpd-test-cvs@apache.org Subject: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRun.pm X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N stas 2003/12/16 12:41:46 Modified: perl-framework/Apache-Test/lib/Apache TestRun.pm Log: better groups verification Revision Changes Path 1.126 +3 -2 httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm Index: TestRun.pm =================================================================== RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v retrieving revision 1.125 retrieving revision 1.126 diff -u -u -r1.125 -r1.126 --- TestRun.pm 16 Dec 2003 20:24:15 -0000 1.125 +++ TestRun.pm 16 Dec 2003 20:41:46 -0000 1.126 @@ -816,8 +816,9 @@ # first must change gid and egid ("$gid $gid" for an empty # setgroups() call as explained in perlvar.pod) - $( = $) = "$gid $gid"; - die "failed to change gid to $gid" unless $( == $gid; + my $groups = "$gid $gid"; + $( = $) = $groups; + die "failed to change gid to $gid" unless $( eq $groups && $) eq $groups; # only now can change uid and euid $< = $> = $uid+0;