perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/src/modules/perl modperl_module.c
Date Mon, 14 Apr 2003 06:38:50 GMT
stas        2003/04/13 23:38:50

  Modified:    src/modules/perl modperl_module.c
  Log:
  unalias the temp aliasing scfg->modules to base_cfg->modules in vhosts
  
  Revision  Changes    Path
  1.12      +8 -0      modperl-2.0/src/modules/perl/modperl_module.c
  
  Index: modperl_module.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_module.c,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -r1.11 -r1.12
  --- modperl_module.c	13 Dec 2002 10:58:40 -0000	1.11
  +++ modperl_module.c	14 Apr 2003 06:38:50 -0000	1.12
  @@ -342,6 +342,7 @@
           (modperl_module_cmd_data_t *)cmd->cmd_data;
       modperl_module_info_t *minfo = MP_MODULE_INFO(info->modp);
       modperl_module_cfg_t *srv_cfg;
  +    int modules_alias = 0;
   
   #ifdef USE_ITHREADS
       modperl_interp_t *interp = modperl_interp_pool_select(p, s);
  @@ -384,6 +385,7 @@
                   modperl_config_srv_get(modperl_global_get_server_rec());
               if (base_scfg->modules) {
                   scfg->modules = base_scfg->modules;
  +                modules_alias = 1;
               }
           }
           
  @@ -452,6 +454,12 @@
   
       if (SvTRUE(ERRSV)) {
           retval = SvPVX(ERRSV);
  +    }
  +
  +    if (modules_alias) {
  +        MP_dSCFG(s);
  +        /* unalias the temp aliasing */
  +        scfg->modules = NULL;
       }
   
       return retval;
  
  
  

Mime
View raw message