cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRun.pm

[stas]

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;