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";);
