Return-Path: Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org Received: (qmail 24361 invoked by uid 500); 14 Apr 2003 23:36:57 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@perl.apache.org Received: (qmail 24350 invoked by uid 500); 14 Apr 2003 23:36:56 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 14 Apr 2003 23:36:56 -0000 Message-ID: <20030414233656.80356.qmail@icarus.apache.org> From: stas@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0 Changes X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N 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]