Re: [mp2] Some tests fail because of backslashes on Win32

Thanks Markus, now please do the whole 'make test' with this patch:

Index: ModPerl-Registry/t/conf/modperl_extra_startup.pl
===================================================================
RCS file: 
/home/cvs/modperl-2.0/ModPerl-Registry/t/conf/modperl_extra_startup.pl,v
retrieving revision 1.18
diff -u -r1.18 modperl_extra_startup.pl
--- ModPerl-Registry/t/conf/modperl_extra_startup.pl    16 Jul 2004 
01:10:45 -0000      1.18
+++ ModPerl-Registry/t/conf/modperl_extra_startup.pl    16 Jul 2004 
21:40:09 -0000
@@ -8,12 +8,14 @@

 use Apache::ServerRec ();
 use Apache::ServerUtil ();
+use Apache::Process ();

-use File::Spec ();
 use DirHandle ();

-my $base_dir = File::Spec->catdir(Apache::ServerUtil::server_root,
-                                  "cgi-bin");
+my $proc = Apache->server->process;
+my $pool = $proc->pool;
+
+my $base_dir = Apache::ServerUtil::server_root_relative($pool, "cgi-bin");

 # test the scripts pre-loading by explicitly specifying uri => filename
 my $rl = ModPerl::RegistryLoader->new(package => "ModPerl::Registry");
@@ -30,7 +32,7 @@
     sub trans {
         my $uri = shift;
         $uri =~ s|^/registry_bb/|cgi-bin/|;
-        return File::Spec->catdir(Apache::ServerUtil::server_root, $uri);
+        return Apache::ServerUtil::server_root_relative($pool, $uri);
     }

     my $rl = ModPerl::RegistryLoader->new(


--
__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:stas@xxxxxxxxxx http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com