httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From jwool...@apache.org
Subject cvs commit: httpd-test/perl-framework/t/modules dav.t
Date Mon, 12 Nov 2001 07:18:47 GMT
jwoolley    01/11/11 23:18:47

  Modified:    perl-framework/t/modules dav.t
  Log:
  Allow this test to work when run as a user other than the one Apache runs
  as (eg, when t/TEST is run as root).  If there's a "perl-ier" way
  to do this, I'm all ears.
  
  Revision  Changes    Path
  1.4       +2 -0      httpd-test/perl-framework/t/modules/dav.t
  
  Index: dav.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/modules/dav.t,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -d -u -r1.3 -r1.4
  --- dav.t	2001/09/10 17:15:54	1.3
  +++ dav.t	2001/11/12 07:18:47	1.4
  @@ -34,6 +34,8 @@
   ## make sure its clean before we begin ##
   unlink "htdocs$uri" if -e "htdocs$uri";
   mkdir "htdocs/$dir", oct('755') unless -e "htdocs/$dir";
  +my ($login,$pass,$uid,$gid) = getpwnam($vars->{user});
  +chown $uid, $gid, "htdocs/$dir";
   
   ## set up resource and lock it ##
   my $resource = $dav->new_resource( -uri => "http://$server$uri");
  
  
  

Mime
View raw message