perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From cho...@hyperreal.org
Subject cvs commit: modperl ToDo Changes
Date Thu, 09 Sep 1999 11:04:50 GMT
cholet      99/09/09 04:04:49

  Modified:    src/modules/perl perl_config.c
               .        ToDo Changes
  Log:
  patch segfault in <Perl> sections, yum
  
  Revision  Changes    Path
  1.79      +8 -1      modperl/src/modules/perl/perl_config.c
  
  Index: perl_config.c
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/perl_config.c,v
  retrieving revision 1.78
  retrieving revision 1.79
  diff -u -r1.78 -r1.79
  --- perl_config.c	1999/09/02 20:19:29	1.78
  +++ perl_config.c	1999/09/09 11:04:47	1.79
  @@ -1406,8 +1406,14 @@
   {
       SV *sv;
       char *methods;
  +    module *mod = top_module;
  +    const command_rec *nrec = find_command_in_modules("<Limit", &mod);
  +    const command_rec *orec = cmd->cmd;
       /*void *ac = (void*)create_default_per_dir_config(cmd->pool);*/
   
  +    if(nrec)
  +	cmd->cmd = nrec;
  +
       if(hv_exists(hv,"METHODS", 7))
          sv = hv_delete(hv, "METHODS", 7, G_SCALAR);
       else
  @@ -1422,6 +1428,7 @@
       limit_section(cmd, dummy, methods); 
       perl_section_hash_walk(cmd, dummy, hv);
       cmd->limited = -1;
  +    cmd->cmd = orec;
   
       return NULL;
   }
  @@ -1462,7 +1469,7 @@
       else if(strnEQ(key, "Files", 5)) 
   	perl_filesection(cmd, (core_dir_config *)dummy, hv);
       else if(strEQ(key, "Limit")) 
  -	perl_limit_section(cmd, dummy, hv);
  +	perl_limit_section(cmd, config, hv);
   
       cmd->info = old_info;
   }
  
  
  
  1.201     +0 -2      modperl/ToDo
  
  Index: ToDo
  ===================================================================
  RCS file: /export/home/cvs/modperl/ToDo,v
  retrieving revision 1.200
  retrieving revision 1.201
  diff -u -r1.200 -r1.201
  --- ToDo	1999/09/09 09:40:32	1.200
  +++ ToDo	1999/09/09 11:04:48	1.201
  @@ -10,8 +10,6 @@
   
   - perl_reload_inc problem [Nathan Sidwell <nathan@acm.org>]
   
  -- <Perl> fixes [Müller Joachim <Joachim.Mueller@arbeitsamt.de>] {cholet}
  -
   - Bugfix to Apache::Registry [Jonas Liljegren <jonas@paranormal.o.se>] {cholet}
   
   - update url to Randy Kobes' win32 binary
  
  
  
  1.344     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /export/home/cvs/modperl/Changes,v
  retrieving revision 1.343
  retrieving revision 1.344
  diff -u -r1.343 -r1.344
  --- Changes	1999/09/09 09:40:32	1.343
  +++ Changes	1999/09/09 11:04:48	1.344
  @@ -10,6 +10,9 @@
   
   =item 1.21_01-dev
   
  +fix segfault when using Limit in <Perl> sections
  +[Müller Joachim <Joachim.Mueller@arbeitsamt.de>]
  +
   make $c->remote_host writeable [Joshua Chamas <joshua@chamas.com>]
   
   add per-server PerlSetVar variables, accessed using
  
  
  

Mime
View raw message