stas        2004/07/16 14:36:28

  Modified:    .        Changes
               todo     api_status
               xs/maps  apache_structures.map
  Added:       t/response/TestAPI process.pm
  Log:
  Apache::Process methods (pool, pconf and short_name) are now read-only
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/response/TestAPI/process.pm
  
  Index: process.pm
  ===================================================================
  package TestAPI::process;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestUtil;
  
  use Apache::RequestRec ();
  use Apache::ServerRec ();
  use Apache::Process ();
  
  use Apache::Const -compile => 'OK';
  
  sub handler {
      my $r = shift;
  
      plan $r, tests => 4;
  
      my $s = $r->server;
      my $proc = $s->process;
      ok t_cmp(1, $proc->isa('Apache::Process'), "isa('Apache::Process')");
  
      my $global_pool = $proc->pool;
      ok t_cmp(1, $global_pool->isa('APR::Pool'), "pglob isa('APR::Pool')");
  
      my $pconf = $proc->pconf;
      ok t_cmp(1, $pconf->isa('APR::Pool'), "pconf isa('APR::Pool')");
  
      my $proc_name = $proc->short_name;
      t_debug($proc_name);
      ok $proc_name;
  
      Apache::OK;
  }
  
  1;
  
  __END__
  
  
  
  1.419     +3 -0      modperl-2.0/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Changes,v
  retrieving revision 1.418
  retrieving revision 1.419
  diff -u -u -r1.418 -r1.419
  --- Changes   16 Jul 2004 01:10:45 -0000      1.418
  +++ Changes   16 Jul 2004 21:36:28 -0000      1.419
  @@ -12,6 +12,9 @@
   
   =item 1.99_15-dev
   
  +Apache::Process methods (pool, pconf and short_name) are now read-only
  +[Stas]
  +
   ($r|$c|$s)->server_root_relative were removed. Now only an explicit
   and somewhat deprecated function API remains:
   Apache::ServerUtil::server_root_relative($pool, $path); it's too easy
  
  
  
  1.17      +1 -1      modperl-2.0/todo/api_status
  
  Index: api_status
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/todo/api_status,v
  retrieving revision 1.16
  retrieving revision 1.17
  diff -u -u -r1.16 -r1.17
  --- api_status        16 Jul 2004 01:53:45 -0000      1.16
  +++ api_status        16 Jul 2004 21:36:28 -0000      1.17
  @@ -30,7 +30,7 @@
           log_pid
   -- src/docs/2.0/api/Apache/Module.pod
   VV src/docs/2.0/api/Apache/PerlSections.pod
  --- src/docs/2.0/api/Apache/Process.pod
  +VV src/docs/2.0/api/Apache/Process.pod
   VV src/docs/2.0/api/Apache/Reload.pod
   VV src/docs/2.0/api/Apache/RequestIO.pod
   -- src/docs/2.0/api/Apache/RequestRec.pod
  
  
  
  1.30      +3 -3      modperl-2.0/xs/maps/apache_structures.map
  
  Index: apache_structures.map
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/maps/apache_structures.map,v
  retrieving revision 1.29
  retrieving revision 1.30
  diff -u -u -r1.29 -r1.30
  --- apache_structures.map     12 Jul 2004 23:16:22 -0000      1.29
  +++ apache_structures.map     16 Jul 2004 21:36:28 -0000      1.30
  @@ -148,11 +148,11 @@
   </module>
   
   <process_rec>
  -   pool
  -   pconf
  +<  pool
  +<  pconf
   -  argc
   !  argv
  -   short_name
  +<  short_name
   </process_rec>
   
   <command_rec>
  
  
  

Reply via email to