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