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

[dougm]

dougm       02/05/18 19:31:16

  Modified:    src/modules/perl modperl_cmd.c
  Log:
  use apr_table_{set,add}n to avoid extra copy in modperl_cmd_{set,add}_var
  
  Revision  Changes    Path
  1.21      +2 -1      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.20
  retrieving revision 1.21
  diff -u -r1.20 -r1.21
  --- modperl_cmd.c     19 May 2002 02:26:11 -0000      1.20
  +++ modperl_cmd.c     19 May 2002 02:31:16 -0000      1.21
  @@ -67,7 +67,7 @@
       const char *name = parms->cmd->name;
   
       modperl_table_modify_t func =
  -        strEQ(name, "PerlSetVar") ? apr_table_set : apr_table_add;
  +        strEQ(name, "PerlSetVar") ? apr_table_setn : apr_table_addn;
   
       func(dcfg->vars, arg1, arg2);
   
  @@ -77,6 +77,7 @@
       /* make available via Apache->server->dir_config */
       if (!parms->path) {
           func(scfg->vars, arg1, arg2);
  +
           MP_TRACE_d(MP_FUNC, "%s SRV: arg1 = %s, arg2 = %s\n",
                      name, arg1, arg2);
       }