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:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
