Just for the basic.t. does this remove the problem?
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 20:39:22 -0000
@@ -8,12 +8,13 @@
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 $base_dir = Apache::ServerUtil::server_root_relative( + Apache->server->process->pconf, "cgi-bin");
# test the scripts pre-loading by explicitly specifying uri => filename my $rl = ModPerl::RegistryLoader->new(package => "ModPerl::Registry");
I guess server_root_relative converts the path into the OS style, whereas server_root just gives a hardcoded value which is unix style.
# testing : ModPerl::PerlRun basic cgi test # expected: ok C:/A/modperl-2.0/ModPerl-Registry/t/cgi-bin/basic.pl # received: ok C:/A/modperl-2.0/ModPerl-Registry/t/cgi-bin/basic.pl ok 1 # testing : ModPerl::Registry basic cgi test # expected: ok C:/A/modperl-2.0/ModPerl-Registry/t/cgi-bin/basic.pl # received: ok C:/A/modperl-2.0/ModPerl-Registry/t/cgi-bin/basic.pl ok 2 # Failed test 3 in t\basic.t at line 28 fail #3 # testing : ModPerl::RegistryBB basic cgi test # expected: ok C:/A/modperl-2.0/ModPerl-Registry/t/cgi-bin/basic.pl # received: ok C:\A\modperl-2.0\ModPerl-Registry\t\cgi-bin\basic.pl not ok 3
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
