httpd-test-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Doug MacEachern <do...@covalent.net>
Subject Re: modules/dav on Win32
Date Fri, 07 Dec 2001 19:30:37 GMT
On Fri, 7 Dec 2001, Rodent of Unusual Size wrote:

> @#*&(^(#(&@# windows.. }-(
> 
> After a lot of travail I've gotten to the point at which all
> the prerequisites for modules/dav on Windows can be run.
> (Only the Expat bundled with Apache seems to suffice for
> XML::Parser, btw; the Win32 download from expat.sf.net
> fails tests because of a missing XML_GetAttributeCount).

still hoping to see dav.t rewritten to use HTTP::Webdav
 
> And now.. and now.. modules/dav is running, but crapping out
> with
> 
> modules\dav.........The getpwnam function is unimplemented at modules\dav.t line 37.
> dubious
> 	Test returned status 2 (wstat 512, 0x200)
> DIED. FAILED tests 1-14
> 
> Is this missing getpwnam a deficiency of my Perl on Windows?

yes.  i think the patch below will suffice.

Index: t/modules/dav.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/modules/dav.t,v
retrieving revision 1.4
diff -u -r1.4 dav.t
--- t/modules/dav.t	2001/11/12 07:18:47	1.4
+++ t/modules/dav.t	2001/12/07 19:06:01
@@ -34,8 +34,12 @@
 ## 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";
+
+eval {
+    #not all platforms support getpwnam
+    my($uid, $gid) = (getpwnam($vars->{user}))[2,3];
+    chown $uid, $gid, "htdocs/$dir";
+};
 
 ## set up resource and lock it ##
 my $resource = $dav->new_resource( -uri => "http://$server$uri");


Mime
View raw message