You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2004/07/05 06:00:12 UTC

cvs commit: modperl-2.0/t/response/TestAPI rutil.pm server_util.pm

stas        2004/07/04 21:00:12

  Modified:    .        Changes
               xs/maps  apache_functions.map
               t/response/TestAPI rutil.pm server_util.pm
  Log:
  method_register moving from Apache:: to Apache::RequestUtil::
  
  Revision  Changes    Path
  1.401     +2 -2      modperl-2.0/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Changes,v
  retrieving revision 1.400
  retrieving revision 1.401
  diff -u -u -r1.400 -r1.401
  --- Changes	4 Jul 2004 08:34:17 -0000	1.400
  +++ Changes	5 Jul 2004 04:00:12 -0000	1.401
  @@ -12,8 +12,8 @@
   
   =item 1.99_15-dev
   
  -Moving methods [Stas]
  -  Apache::get_status_line => Apache::RequestUtil::get_status_line
  +Moving HTTP specific functions get_status_line, method_register from
  +Apache:: to Apache::RequestUtil:: to match their container [Stas]
   
   Adjust the list of mod_perl header files installed into the Apache2
   include/ directory, made necessary from the renaming and refactoring
  
  
  
  1.85      +1 -1      modperl-2.0/xs/maps/apache_functions.map
  
  Index: apache_functions.map
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/maps/apache_functions.map,v
  retrieving revision 1.84
  retrieving revision 1.85
  diff -u -u -r1.84 -r1.85
  --- apache_functions.map	4 Jul 2004 08:34:18 -0000	1.84
  +++ apache_functions.map	5 Jul 2004 04:00:12 -0000	1.85
  @@ -37,6 +37,7 @@
   
   MODULE=Apache::RequestUtil
    ap_get_status_line
  + ap_method_register
   
   MODULE=Apache::RequestUtil   PACKAGE=guess
   >ap_finalize_request_protocol
  @@ -45,7 +46,6 @@
    ap_get_server_port
   !ap_content_type_tolower
    ap_is_initial_req
  - ap_method_register
   >ap_method_registry_init
   >ap_process_request_internal
   ?ap_get_mime_headers
  
  
  
  1.15      +4 -1      modperl-2.0/t/response/TestAPI/rutil.pm
  
  Index: rutil.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/rutil.pm,v
  retrieving revision 1.14
  retrieving revision 1.15
  diff -u -u -r1.14 -r1.15
  --- rutil.pm	4 Jul 2004 08:34:18 -0000	1.14
  +++ rutil.pm	5 Jul 2004 04:00:12 -0000	1.15
  @@ -19,7 +19,7 @@
   sub handler {
       my $r = shift;
   
  -    plan $r, tests => (scalar keys %status_lines) + 7;
  +    plan $r, tests => (scalar keys %status_lines) + 8;
   
       ok $r->default_type;
   
  @@ -45,6 +45,9 @@
                    Apache::RequestUtil::get_status_line($code),
                    "Apache::RequestUtil::get_status_line($code)");
       }
  +
  +    t_debug('registering method FOO');
  +    ok Apache::RequestUtil::method_register($r->server->process->pconf, 'FOO');
   
       Apache::OK;
   }
  
  
  
  1.19      +1 -4      modperl-2.0/t/response/TestAPI/server_util.pm
  
  Index: server_util.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/server_util.pm,v
  retrieving revision 1.18
  retrieving revision 1.19
  diff -u -u -r1.18 -r1.19
  --- server_util.pm	4 Jul 2004 08:34:18 -0000	1.18
  +++ server_util.pm	5 Jul 2004 04:00:12 -0000	1.19
  @@ -45,7 +45,7 @@
           '__PACKAGE__->new($r)' => __PACKAGE__->new($r),
       );
   
  -    plan $r, tests => 12     +
  +    plan $r, tests => 11     +
           (scalar keys %pools) +
           (scalar keys %objects);
   
  @@ -120,9 +120,6 @@
                             $dir,
                             "\$r->server_root_relative($dir)");
       }
  -
  -    t_debug('registering method FOO');
  -    ok Apache::method_register($r->server->process->pconf, 'FOO');
   
       t_debug('Apache::exists_config_define');
       ok Apache::exists_config_define('MODPERL2');