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 Changes
Date Mon, 14 Apr 2003 23:36:56 GMT
stas        2003/04/14 16:36:55

  Modified:    src/modules/perl modperl_cmd.c
               .        Changes
  Log:
  similar to SetEnv, upcase the env keys for PassEnv on platforms with
  caseless env (e.g. win32)
  Submitted by:	steve.sparling@ps.ge.com
  
  Revision  Changes    Path
  1.46      +9 -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.45
  retrieving revision 1.46
  diff -u -r1.45 -r1.46
  --- modperl_cmd.c	4 Apr 2003 06:03:07 -0000	1.45
  +++ modperl_cmd.c	14 Apr 2003 23:36:55 -0000	1.46
  @@ -223,7 +223,15 @@
   {
       MP_dSCFG(parms->server);
       char *val = getenv(arg);
  - 
  +    
  +#ifdef ENV_IS_CASELESS /* i.e. WIN32 */
  +    /* we turn off env magic during hv_store later, so do this now,
  +     * else lookups on keys with lowercase characters will fails
  +     * because Perl will uppercase them prior to lookup.
  +     */
  +    modperl_str_toupper((char *)arg);
  +#endif
  +    
       if (val) {
           apr_table_setn(scfg->PassEnv, arg, apr_pstrdup(parms->pool, val));
           MP_TRACE_d(MP_FUNC, "arg = %s, val = %s\n", arg, val);
  
  
  
  1.171     +3 -0      modperl-2.0/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Changes,v
  retrieving revision 1.170
  retrieving revision 1.171
  diff -u -r1.170 -r1.171
  --- Changes	11 Apr 2003 07:34:03 -0000	1.170
  +++ Changes	14 Apr 2003 23:36:55 -0000	1.171
  @@ -10,6 +10,9 @@
   
   =item 1.99_09-dev
   
  +similar to SetEnv, upcase the env keys for PassEnv on platforms with
  +caseless env (e.g. win32) [steve.sparling@ps.ge.com]
  +
   Add a backcompat wrapper for $r->notes (mp2 supports only the
   APR::Table API) [Stas]
   
  
  
  

Mime
View raw message