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

[stas]

stas        2003/12/16 12:48:12

  Modified:    perl-framework/Apache-Test/lib/Apache TestRun.pm
  Log:
  verify the EUID as well
  
  Revision  Changes    Path
  1.127     +1 -1      
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.126
  retrieving revision 1.127
  diff -u -u -r1.126 -r1.127
  --- TestRun.pm        16 Dec 2003 20:41:46 -0000      1.126
  +++ TestRun.pm        16 Dec 2003 20:48:12 -0000      1.127
  @@ -822,7 +822,7 @@
   
       # only now can change uid and euid
       $< = $> = $uid+0;
  -    die "failed to change uid to $uid" unless $< == $uid;
  +    die "failed to change uid to $uid" unless $< == $uid && $> == $uid;
   
       my $file = catfile $dir, ".apache-test-file-$$-".time.int(rand);
       eval "END { unlink q[$file] }";