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

Reply via email to