stas 2003/04/06 22:47:09
Modified: ModPerl-Registry/t/conf modperl_extra_startup.pl Log: use the server process' pool instead of creating a new one Revision Changes Path 1.12 +3 -2 modperl-2.0/ModPerl-Registry/t/conf/modperl_extra_startup.pl Index: modperl_extra_startup.pl =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/conf/modperl_extra_startup.pl,v retrieving revision 1.11 retrieving revision 1.12 diff -u -r1.11 -r1.12 --- modperl_extra_startup.pl 1 Apr 2003 03:44:11 -0000 1.11 +++ modperl_extra_startup.pl 7 Apr 2003 05:47:08 -0000 1.12 @@ -3,13 +3,14 @@ use ModPerl::RegistryLoader (); use Apache::ServerUtil (); +use Apache::Server (); +use Apache::Process (); use APR::Pool (); use DirHandle (); -my $pool = APR::Pool->new(); +my $pool = Apache->server->process->pool; my $base_dir = Apache::server_root_relative($pool, "cgi-bin"); - # test the scripts pre-loading by explicitly specifying uri => filename my $rl = ModPerl::RegistryLoader->new(package => "ModPerl::Registry");