perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/src/modules/perl modperl_cmd.c
Date Sat, 24 Aug 2002 18:03:48 GMT
dougm       2002/08/24 11:03:47

  Modified:    src/modules/perl modperl_cmd.c
  Log:
  dont allow PerlSwitches to be configured after mod_perl is running
  
  Revision  Changes    Path
  1.23      +9 -0      modperl-2.0/src/modules/perl/modperl_cmd.c
  
  Index: modperl_cmd.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_cmd.c,v
  retrieving revision 1.22
  retrieving revision 1.23
  diff -u -r1.22 -r1.23
  --- modperl_cmd.c	24 Aug 2002 16:08:02 -0000	1.22
  +++ modperl_cmd.c	24 Aug 2002 18:03:47 -0000	1.23
  @@ -6,6 +6,12 @@
                          "> directive missing closing '>'", NULL);
   }
   
  +static char *modperl_cmd_too_late(cmd_parms *parms)
  +{
  +    return apr_pstrcat(parms->pool, "mod_perl already running, "
  +                       "too late for ", parms->cmd->name, NULL);
  +}
  +
   char *modperl_cmd_push_handlers(MpAV **handlers, const char *name,
                                   apr_pool_t *p)
   {
  @@ -45,6 +51,9 @@
   MP_CMD_SRV_DECLARE(switches)
   {
       MP_dSCFG(parms->server);
  +    if (modperl_is_running()) {
  +        return modperl_cmd_too_late(parms);
  +    }
       MP_TRACE_d(MP_FUNC, "arg = %s\n", arg);
       modperl_config_srv_argv_push(arg);
       return NULL;
  
  
  

Mime
View raw message