dougm 02/05/12 20:20:09
Modified: src/modules/perl modperl_cmd.c
Log:
fix PerlSetEnv on win32 when keys have lowercase characters
Revision Changes Path
1.17 +8 -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.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- modperl_cmd.c 12 May 2002 23:01:32 -0000 1.16
+++ modperl_cmd.c 13 May 2002 03:20:09 -0000 1.17
@@ -97,6 +97,14 @@
MP_dSCFG(parms->server);
modperl_config_dir_t *dcfg = (modperl_config_dir_t *)mconfig;
+#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 *)arg1);
+#endif
+
MP_TRACE_d(MP_FUNC, "arg1 = %s, arg2 = %s\n", arg1, arg2);
if (!parms->path) {
