stas        2004/07/09 01:01:22

  Modified:    .        Changes
               ModPerl-Registry/t/conf modperl_extra_startup.pl
               lib/Apache PerlSections.pm compat.pm
               src/modules/perl modperl_callback.c modperl_util.c
               t/conf   modperl_extra.pl
               t/hooks/TestHooks startup.pm
               t/htdocs/vhost startup.pl
               t/response/TestAPI conn_rec.pm request_rec.pm server_rec.pm
               t/response/TestDirective perlloadmodule3.pm
                        perlloadmodule4.pm perlloadmodule5.pm
                        perlloadmodule6.pm
               t/response/TestModperl dir_config.pm merge.pm
               t/response/TestModules proxy.pm
               xs/Apache/Log Apache__Log.h
               xs/Apache/ServerUtil Apache__ServerUtil.h
               xs/maps  apache_types.map modperl_functions.map
               xs/tables/current/ModPerl FunctionTable.pm
  Log:
  In order to be consistent with Apache::RequestRec, Apache::Server is
  now Apache::ServerRec and all methods/functions from Apache::Server
  now live in Apache::ServerRec.
  
  Revision  Changes    Path
  1.406     +4 -0      modperl-2.0/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Changes,v
  retrieving revision 1.405
  retrieving revision 1.406
  diff -u -u -r1.405 -r1.406
  --- Changes   7 Jul 2004 19:46:48 -0000       1.405
  +++ Changes   9 Jul 2004 08:01:19 -0000       1.406
  @@ -12,6 +12,10 @@
   
   =item 1.99_15-dev
   
  +In order to be consistent with Apache::RequestRec, Apache::Server is
  +now Apache::ServerRec and all methods/functions from Apache::Server
  +now live in Apache::ServerRec. [Stas]
  +
   Use a context-specific Perl_load_module() instead of load_module(), to
   avoid the problem with 'load_module' symbol resolution on certain
   platforms, where for some reason it doesn't get resolved at compile
  
  
  
  1.17      +3 -3      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.16
  retrieving revision 1.17
  diff -u -u -r1.16 -r1.17
  --- modperl_extra_startup.pl  8 Jul 2004 07:35:06 -0000       1.16
  +++ modperl_extra_startup.pl  9 Jul 2004 08:01:20 -0000       1.17
  @@ -5,14 +5,14 @@
   use APR::Error;
   
   use ModPerl::RegistryLoader ();
  -use Apache::Server ();
  +use Apache::ServerRec ();
   use Apache::ServerUtil ();
   use Apache::Process ();
   
   use DirHandle ();
   
   my $pool = Apache->server->process->pool;
  -my $base_dir = Apache::Server::server_root_relative($pool, "cgi-bin");
  +my $base_dir = Apache::ServerRec::server_root_relative($pool, "cgi-bin");
   
   # test the scripts pre-loading by explicitly specifying uri => filename
   my $rl = ModPerl::RegistryLoader->new(package => "ModPerl::Registry");
  @@ -29,7 +29,7 @@
       sub trans {
           my $uri = shift; 
           $uri =~ s|^/registry_bb/|cgi-bin/|;
  -        return Apache::Server::server_root_relative($pool, $uri);
  +        return Apache::ServerRec::server_root_relative($pool, $uri);
       }
   
       my $rl = ModPerl::RegistryLoader->new(
  
  
  
  1.5       +1 -1      modperl-2.0/lib/Apache/PerlSections.pm
  
  Index: PerlSections.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/PerlSections.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -u -r1.4 -r1.5
  --- PerlSections.pm   4 Mar 2004 06:01:05 -0000       1.4
  +++ PerlSections.pm   9 Jul 2004 08:01:20 -0000       1.5
  @@ -22,7 +22,7 @@
   use Apache::CmdParms ();
   use Apache::Directive ();
   use APR::Table ();
  -use Apache::Server ();
  +use Apache::ServerRec ();
   use Apache::ServerUtil ();
   use Apache::Const -compile => qw(OK);
   
  
  
  
  1.110     +3 -3      modperl-2.0/lib/Apache/compat.pm
  
  Index: compat.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/compat.pm,v
  retrieving revision 1.109
  retrieving revision 1.110
  diff -u -u -r1.109 -r1.110
  --- compat.pm 2 Jul 2004 20:42:58 -0000       1.109
  +++ compat.pm 9 Jul 2004 08:01:20 -0000       1.110
  @@ -37,7 +37,7 @@
   use Apache::RequestRec ();
   use Apache::SubRequest ();
   use Apache::Connection ();
  -use Apache::Server ();
  +use Apache::ServerRec ();
   use Apache::ServerUtil ();
   use Apache::Access ();
   use Apache::RequestIO ();
  @@ -157,10 +157,10 @@
   
       'Apache::server_root_relative' => <<'EOI',
   {
  -    require Apache::Server;
  +    require Apache::ServerRec;
       require Apache::ServerUtil;
   
  -    my $orig_sub = *Apache::Server::server_root_relative{CODE};
  +    my $orig_sub = *Apache::ServerRec::server_root_relative{CODE};
       *Apache::server_root_relative = sub {
           my $class = shift;
           return Apache->server->server_root_relative(@_);
  
  
  
  1.75      +2 -2      modperl-2.0/src/modules/perl/modperl_callback.c
  
  Index: modperl_callback.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_callback.c,v
  retrieving revision 1.74
  retrieving revision 1.75
  diff -u -u -r1.74 -r1.75
  --- modperl_callback.c        7 Jul 2004 18:48:41 -0000       1.74
  +++ modperl_callback.c        9 Jul 2004 08:01:20 -0000       1.75
  @@ -249,12 +249,12 @@
                                     "Apache::Pool", pconf,
                                     "Apache::Pool", plog,
                                     "Apache::Pool", ptemp,
  -                                  "Apache::Server", s, NULL);
  +                                  "Apache::ServerRec", s, NULL);
           break;
         case MP_HANDLER_TYPE_PROCESS:
           modperl_handler_make_args(aTHX_ &av_args,
                                     "Apache::Pool", pconf,
  -                                  "Apache::Server", s, NULL);
  +                                  "Apache::ServerRec", s, NULL);
           break;
       };
   
  
  
  
  1.73      +2 -2      modperl-2.0/src/modules/perl/modperl_util.c
  
  Index: modperl_util.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.c,v
  retrieving revision 1.72
  retrieving revision 1.73
  diff -u -u -r1.72 -r1.73
  --- modperl_util.c    7 Jul 2004 19:46:48 -0000       1.72
  +++ modperl_util.c    9 Jul 2004 08:01:20 -0000       1.73
  @@ -233,7 +233,7 @@
               }
               break;
             case 'S':
  -            if (strEQ(classname, "Server")) {
  +            if (strEQ(classname, "ServerRec")) {
                   p = ((server_rec *)ptr)->process->pconf;
               }
               break;
  @@ -713,7 +713,7 @@
   }
   
   /* this is used across server_root_relative() in the
  - * Apache, Apache::Server, Apache::RequestRec, and 
  + * Apache, Apache::ServerRec, Apache::RequestRec, and 
    * Apache::Connection classes
    */
   SV *modperl_server_root_relative(pTHX_ SV *sv, const char *fname)
  
  
  
  1.54      +3 -3      modperl-2.0/t/conf/modperl_extra.pl
  
  Index: modperl_extra.pl
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/conf/modperl_extra.pl,v
  retrieving revision 1.53
  retrieving revision 1.54
  diff -u -u -r1.53 -r1.54
  --- modperl_extra.pl  8 Jul 2004 06:54:58 -0000       1.53
  +++ modperl_extra.pl  9 Jul 2004 08:01:20 -0000       1.54
  @@ -10,7 +10,7 @@
   # XXX: temp workaround for t/filter/TestFilter/in_error.pm
   use APR::Error;
   
  -use Apache::Server ();
  +use Apache::ServerRec ();
   use Apache::ServerUtil ();
   use Apache::Process ();
   
  @@ -19,7 +19,7 @@
   # perl core libs
   my $pool = Apache->server->process->pool;
   my $project_root = canonpath
  -    Apache::Server::server_root_relative($pool, "..");
  +    Apache::ServerRec::server_root_relative($pool, "..");
   my (@a, @b, @c);
   for (@INC) {
       if (m|^\Q$project_root\E|) {
  @@ -60,7 +60,7 @@
   my $apr_mods = scalar grep { /^APR/    } keys %INC;
   
   Apache::Log->info("$ap_mods Apache:: modules loaded");
  -Apache::Server->log->info("$apr_mods APR:: modules loaded");
  +Apache::ServerRec->log->info("$apr_mods APR:: modules loaded");
   
   {
       my $server = Apache->server;
  
  
  
  1.4       +1 -1      modperl-2.0/t/hooks/TestHooks/startup.pm
  
  Index: startup.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/startup.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -u -r1.3 -r1.4
  --- startup.pm        9 Mar 2004 20:46:13 -0000       1.3
  +++ startup.pm        9 Jul 2004 08:01:21 -0000       1.4
  @@ -11,7 +11,7 @@
   use Apache::TestTrace;
   
   use APR::Table;
  -use Apache::Server ();
  +use Apache::ServerRec ();
   use Apache::ServerUtil ();
   use Apache::RequestRec ();
   use Apache::RequestIO ();
  
  
  
  1.4       +1 -1      modperl-2.0/t/htdocs/vhost/startup.pl
  
  Index: startup.pl
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/htdocs/vhost/startup.pl,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -u -r1.3 -r1.4
  --- startup.pl        5 Mar 2004 18:19:15 -0000       1.3
  +++ startup.pl        9 Jul 2004 08:01:21 -0000       1.4
  @@ -3,7 +3,7 @@
   
   use Apache2;
   use Apache::ServerUtil ();
  -use Apache::Server ();
  +use Apache::ServerRec ();
   
   use File::Spec::Functions qw(catdir);
   
  
  
  
  1.11      +1 -1      modperl-2.0/t/response/TestAPI/conn_rec.pm
  
  Index: conn_rec.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/conn_rec.pm,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -u -r1.10 -r1.11
  --- conn_rec.pm       8 Jul 2004 05:29:42 -0000       1.10
  +++ conn_rec.pm       9 Jul 2004 08:01:21 -0000       1.11
  @@ -27,7 +27,7 @@
   
       ok $c->pool->isa('APR::Pool');
   
  -    ok $c->base_server->isa('Apache::Server');
  +    ok $c->base_server->isa('Apache::ServerRec');
   
       ok $c->client_socket->isa('APR::Socket');
   
  
  
  
  1.20      +1 -1      modperl-2.0/t/response/TestAPI/request_rec.pm
  
  Index: request_rec.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/request_rec.pm,v
  retrieving revision 1.19
  retrieving revision 1.20
  diff -u -u -r1.19 -r1.20
  --- request_rec.pm    8 Jul 2004 05:29:42 -0000       1.19
  +++ request_rec.pm    9 Jul 2004 08:01:21 -0000       1.20
  @@ -42,7 +42,7 @@
   
       ok $r->connection->isa('Apache::Connection');
   
  -    ok $r->server->isa('Apache::Server');
  +    ok $r->server->isa('Apache::ServerRec');
   
       for (qw(next prev main)) {
           ok (! $r->$_()) || $r->$_()->isa('Apache::RequestRec');
  
  
  
  1.9       +1 -1      modperl-2.0/t/response/TestAPI/server_rec.pm
  
  Index: server_rec.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/server_rec.pm,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -u -r1.8 -r1.9
  --- server_rec.pm     11 Apr 2002 11:08:43 -0000      1.8
  +++ server_rec.pm     9 Jul 2004 08:01:21 -0000       1.9
  @@ -7,7 +7,7 @@
   use Apache::TestUtil;
   
   use Apache::RequestRec ();
  -use Apache::Server ();
  +use Apache::ServerRec ();
   use Apache::ServerUtil ();
   
   use Apache::Const -compile => 'OK';
  
  
  
  1.4       +1 -1      modperl-2.0/t/response/TestDirective/perlloadmodule3.pm
  
  Index: perlloadmodule3.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/perlloadmodule3.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -u -r1.3 -r1.4
  --- perlloadmodule3.pm        18 Apr 2003 06:18:58 -0000      1.3
  +++ perlloadmodule3.pm        9 Jul 2004 08:01:21 -0000       1.4
  @@ -80,7 +80,7 @@
   
   use Apache::RequestRec ();
   use Apache::RequestIO ();
  -use Apache::Server ();
  +use Apache::ServerRec ();
   use Apache::ServerUtil ();
   use Apache::Module ();
   
  
  
  
  1.4       +1 -1      modperl-2.0/t/response/TestDirective/perlloadmodule4.pm
  
  Index: perlloadmodule4.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/perlloadmodule4.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -u -r1.3 -r1.4
  --- perlloadmodule4.pm        18 Apr 2003 06:18:58 -0000      1.3
  +++ perlloadmodule4.pm        9 Jul 2004 08:01:21 -0000       1.4
  @@ -41,7 +41,7 @@
   
   use Apache::RequestRec ();
   use Apache::RequestIO ();
  -use Apache::Server ();
  +use Apache::ServerRec ();
   use Apache::ServerUtil ();
   use Apache::Module ();
   use Apache::Test;
  
  
  
  1.5       +1 -1      modperl-2.0/t/response/TestDirective/perlloadmodule5.pm
  
  Index: perlloadmodule5.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/perlloadmodule5.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -u -r1.4 -r1.5
  --- perlloadmodule5.pm        18 Apr 2003 06:18:58 -0000      1.4
  +++ perlloadmodule5.pm        9 Jul 2004 08:01:21 -0000       1.5
  @@ -39,7 +39,7 @@
   
   use Apache::RequestRec ();
   use Apache::RequestIO ();
  -use Apache::Server ();
  +use Apache::ServerRec ();
   use Apache::ServerUtil ();
   use Apache::Module ();
   use Apache::Test;
  
  
  
  1.4       +1 -1      modperl-2.0/t/response/TestDirective/perlloadmodule6.pm
  
  Index: perlloadmodule6.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/perlloadmodule6.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -u -r1.3 -r1.4
  --- perlloadmodule6.pm        18 Apr 2003 06:18:58 -0000      1.3
  +++ perlloadmodule6.pm        9 Jul 2004 08:01:21 -0000       1.4
  @@ -29,7 +29,7 @@
   
   use Apache::RequestRec ();
   use Apache::RequestIO ();
  -use Apache::Server ();
  +use Apache::ServerRec ();
   use Apache::ServerUtil ();
   use Apache::Module ();
   use Apache::Test;
  
  
  
  1.8       +2 -2      modperl-2.0/t/response/TestModperl/dir_config.pm
  
  Index: dir_config.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/dir_config.pm,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -u -r1.7 -r1.8
  --- dir_config.pm     25 Nov 2003 20:31:29 -0000      1.7
  +++ dir_config.pm     9 Jul 2004 08:01:21 -0000       1.8
  @@ -3,7 +3,7 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Apache::Server ();
  +use Apache::ServerRec ();
   use Apache::ServerUtil ();
   use Apache::RequestUtil ();
   use APR::Table ();
  @@ -138,7 +138,7 @@
       {
           # base server test
           my $bs = Apache->server;
  -        ok t_cmp('Apache::Server',
  +        ok t_cmp('Apache::ServerRec',
                    ($bs && ref($bs)),
                    "base server's object retrieval");
   
  
  
  
  1.6       +1 -1      modperl-2.0/t/response/TestModperl/merge.pm
  
  Index: merge.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/merge.pm,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -u -r1.5 -r1.6
  --- merge.pm  3 Apr 2004 05:42:23 -0000       1.5
  +++ merge.pm  9 Jul 2004 08:01:21 -0000       1.6
  @@ -3,7 +3,7 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Apache::Server ();
  +use Apache::ServerRec ();
   use Apache::ServerUtil ();
   use Apache::RequestUtil ();
   use APR::Table ();
  
  
  
  1.5       +1 -1      modperl-2.0/t/response/TestModules/proxy.pm
  
  Index: proxy.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModules/proxy.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -u -r1.4 -r1.5
  --- proxy.pm  19 Feb 2004 14:07:15 -0000      1.4
  +++ proxy.pm  9 Jul 2004 08:01:21 -0000       1.5
  @@ -5,7 +5,7 @@
   
   use Apache::Test;
   
  -use Apache::Server ();
  +use Apache::ServerRec ();
   use Apache::RequestRec ();
   use Apache::RequestIO ();
   
  
  
  
  1.14      +1 -1      modperl-2.0/xs/Apache/Log/Apache__Log.h
  
  Index: Apache__Log.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/Apache/Log/Apache__Log.h,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -u -r1.13 -r1.14
  --- Apache__Log.h     4 Mar 2004 06:01:13 -0000       1.13
  +++ Apache__Log.h     9 Jul 2004 08:01:21 -0000       1.14
  @@ -114,7 +114,7 @@
   #define mpxs_Apache__RequestRec_log(sv) \
   mpxs_Apache__Log_log(aTHX_ sv, MP_LOG_REQUEST)
   
  -#define mpxs_Apache__Server_log(sv) \
  +#define mpxs_Apache__ServerRec_log(sv) \
   mpxs_Apache__Log_log(aTHX_ sv, MP_LOG_SERVER)
   
   static MP_INLINE SV *modperl_perl_do_join(pTHX_ SV **mark, SV **sp)
  
  
  
  1.19      +7 -7      modperl-2.0/xs/Apache/ServerUtil/Apache__ServerUtil.h
  
  Index: Apache__ServerUtil.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/Apache/ServerUtil/Apache__ServerUtil.h,v
  retrieving revision 1.18
  retrieving revision 1.19
  diff -u -u -r1.18 -r1.19
  --- Apache__ServerUtil.h      5 Mar 2004 18:19:15 -0000       1.18
  +++ Apache__ServerUtil.h      9 Jul 2004 08:01:22 -0000       1.19
  @@ -14,7 +14,7 @@
    */
   
   static MP_INLINE
  -int mpxs_Apache__Server_push_handlers(pTHX_ server_rec *s,
  +int mpxs_Apache__ServerRec_push_handlers(pTHX_ server_rec *s,
                                         const char *name,
                                         SV *sv)
   {
  @@ -27,7 +27,7 @@
   }
   
   static MP_INLINE
  -int mpxs_Apache__Server_set_handlers(pTHX_ server_rec *s,
  +int mpxs_Apache__ServerRec_set_handlers(pTHX_ server_rec *s,
                                        const char *name,
                                        SV *sv)
   {
  @@ -39,7 +39,7 @@
   }
   
   static MP_INLINE
  -SV *mpxs_Apache__Server_get_handlers(pTHX_ server_rec *s,
  +SV *mpxs_Apache__ServerRec_get_handlers(pTHX_ server_rec *s,
                                        const char *name)
   {
       MpAV **handp =
  @@ -51,20 +51,20 @@
                                                s->process->pconf);
   }
   
  -#define mpxs_Apache__Server_dir_config(s, key, sv_val) \
  +#define mpxs_Apache__ServerRec_dir_config(s, key, sv_val) \
       modperl_dir_config(aTHX_ NULL, s, key, sv_val)
   
   #define mpxs_Apache_server(classname) \
   modperl_global_get_server_rec()
   
  -#define mpxs_Apache__Server_server_root_relative(sv, fname) \
  +#define mpxs_Apache__ServerRec_server_root_relative(sv, fname) \
       modperl_server_root_relative(aTHX_ sv, fname);
   
   #define mpxs_Apache_server_root_relative(sv, fname) \
       modperl_server_root_relative(aTHX_ sv, fname);
   
   static MP_INLINE
  -int mpxs_Apache__Server_is_perl_option_enabled(pTHX_ server_rec *s,
  +int mpxs_Apache__ServerRec_is_perl_option_enabled(pTHX_ server_rec *s,
                                                  const char *name)
   {
       return modperl_config_is_perl_option_enabled(aTHX_ NULL, s, name);
  @@ -72,7 +72,7 @@
   
   
   static MP_INLINE
  -void mpxs_Apache__Server_add_config(pTHX_ server_rec *s, SV *lines)
  +void mpxs_Apache__ServerRec_add_config(pTHX_ server_rec *s, SV *lines)
   {
       const char *errmsg = modperl_config_insert_server(aTHX_ s, lines);
       if (errmsg) {
  
  
  
  1.10      +1 -1      modperl-2.0/xs/maps/apache_types.map
  
  Index: apache_types.map
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/maps/apache_types.map,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -u -r1.9 -r1.10
  --- apache_types.map  24 Aug 2002 17:16:45 -0000      1.9
  +++ apache_types.map  9 Jul 2004 08:01:22 -0000       1.10
  @@ -1,6 +1,6 @@
   ##########  Apache types  ##########
   
  -struct server_rec       | Apache::Server
  +struct server_rec       | Apache::ServerRec
   struct server_addr_rec  | Apache::ServerAddr
   struct conn_rec         | Apache::Connection
   struct request_rec      | Apache::RequestRec
  
  
  
  1.77      +7 -7      modperl-2.0/xs/maps/modperl_functions.map
  
  Index: modperl_functions.map
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/maps/modperl_functions.map,v
  retrieving revision 1.76
  retrieving revision 1.77
  diff -u -u -r1.76 -r1.77
  --- modperl_functions.map     7 Jul 2004 05:06:40 -0000       1.76
  +++ modperl_functions.map     9 Jul 2004 08:01:22 -0000       1.77
  @@ -71,13 +71,13 @@
   
   
   MODULE=Apache::ServerUtil   PACKAGE=guess
  - mpxs_Apache__Server_push_handlers
  - mpxs_Apache__Server_set_handlers
  - mpxs_Apache__Server_get_handlers
  - mpxs_Apache__Server_is_perl_option_enabled
  - mpxs_Apache__Server_add_config
  + mpxs_Apache__ServerRec_push_handlers
  + mpxs_Apache__ServerRec_set_handlers
  + mpxs_Apache__ServerRec_get_handlers
  + mpxs_Apache__ServerRec_is_perl_option_enabled
  + mpxs_Apache__ServerRec_add_config
   
  -PACKAGE=Apache::Server
  +MODULE=Apache::ServerUtil  PACKAGE=Apache::ServerRec
    SV *:DEFINE_dir_config | | server_rec *:s, char *:key=NULL, SV *:sv_val=Nullsv
    SV *:DEFINE_server_root_relative | | SV *:p, const char *:fname=""
   
  @@ -126,7 +126,7 @@
   DEFINE_log_rerror | MPXS_Apache__Log_log_xerror | ...
   DEFINE_log_error  | MPXS_Apache__Log_log_error  | ...
   
  -PACKAGE=Apache::Server
  +PACKAGE=Apache::ServerRec
   SV *:DEFINE_log   | | SV *:obj
   DEFINE_log_serror | MPXS_Apache__Log_log_xerror | ...
   DEFINE_log_error  | MPXS_Apache__Log_log_error  | ...
  
  
  
  1.170     +19 -19    modperl-2.0/xs/tables/current/ModPerl/FunctionTable.pm
  
  Index: FunctionTable.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/tables/current/ModPerl/FunctionTable.pm,v
  retrieving revision 1.169
  retrieving revision 1.170
  diff -u -u -r1.169 -r1.170
  --- FunctionTable.pm  9 Jul 2004 06:09:09 -0000       1.169
  +++ FunctionTable.pm  9 Jul 2004 08:01:22 -0000       1.170
  @@ -2,7 +2,7 @@
   
   # !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   # ! WARNING: generated by ModPerl::ParseSource/0.01
  -# !          Thu Jul  8 23:06:59 2004
  +# !          Thu Jul  8 23:58:04 2004
   # !          do NOT edit, any changes will be lost !
   # !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   
  @@ -6667,20 +6667,7 @@
     },
     {
       'return_type' => 'void',
  -    'name' => 'mpxs_Apache__ServerUtil_BOOT',
  -    'attr' => [
  -      'static'
  -    ],
  -    'args' => [
  -      {
  -        'type' => 'PerlInterpreter *',
  -        'name' => 'my_perl'
  -      }
  -    ]
  -  },
  -  {
  -    'return_type' => 'void',
  -    'name' => 'mpxs_Apache__Server_add_config',
  +    'name' => 'mpxs_Apache__ServerRec_add_config',
       'args' => [
         {
           'type' => 'PerlInterpreter *',
  @@ -6698,7 +6685,7 @@
     },
     {
       'return_type' => 'SV *',
  -    'name' => 'mpxs_Apache__Server_get_handlers',
  +    'name' => 'mpxs_Apache__ServerRec_get_handlers',
       'args' => [
         {
           'type' => 'PerlInterpreter *',
  @@ -6716,7 +6703,7 @@
     },
     {
       'return_type' => 'int',
  -    'name' => 'mpxs_Apache__Server_is_perl_option_enabled',
  +    'name' => 'mpxs_Apache__ServerRec_is_perl_option_enabled',
       'args' => [
         {
           'type' => 'PerlInterpreter *',
  @@ -6734,7 +6721,7 @@
     },
     {
       'return_type' => 'int',
  -    'name' => 'mpxs_Apache__Server_push_handlers',
  +    'name' => 'mpxs_Apache__ServerRec_push_handlers',
       'args' => [
         {
           'type' => 'PerlInterpreter *',
  @@ -6756,7 +6743,7 @@
     },
     {
       'return_type' => 'int',
  -    'name' => 'mpxs_Apache__Server_set_handlers',
  +    'name' => 'mpxs_Apache__ServerRec_set_handlers',
       'args' => [
         {
           'type' => 'PerlInterpreter *',
  @@ -6773,6 +6760,19 @@
         {
           'type' => 'SV *',
           'name' => 'sv'
  +      }
  +    ]
  +  },
  +  {
  +    'return_type' => 'void',
  +    'name' => 'mpxs_Apache__ServerUtil_BOOT',
  +    'attr' => [
  +      'static'
  +    ],
  +    'args' => [
  +      {
  +        'type' => 'PerlInterpreter *',
  +        'name' => 'my_perl'
         }
       ]
     },
  
  
  

Reply via email to