cvs commit: modperl-2.0/src/modules/perl mod_perl.c

[dougm]

dougm       01/01/21 13:12:08

  Modified:    src/modules/perl mod_perl.c
  Log:
  cut out some linenoise with modperl_srv_config_get
  
  Revision  Changes    Path
  1.27      +1 -3      modperl-2.0/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.c,v
  retrieving revision 1.26
  retrieving revision 1.27
  diff -u -r1.26 -r1.27
  --- mod_perl.c        2001/01/20 21:19:08     1.26
  +++ mod_perl.c        2001/01/21 21:12:07     1.27
  @@ -45,9 +45,7 @@
   void modperl_init(server_rec *base_server, apr_pool_t *p)
   {
       server_rec *s;
  -    modperl_srv_config_t *base_scfg =
  -      (modperl_srv_config_t *)
  -        ap_get_module_config(base_server->module_config, &perl_module);
  +    modperl_srv_config_t *base_scfg = modperl_srv_config_get(base_server);
       PerlInterpreter *base_perl;
   
       MP_TRACE_d_do(MpSrv_dump_flags(base_scfg,