You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1998/10/01 22:28:14 UTC
cvs commit: modperl/src/modules/perl perl_config.c
dougm 98/10/01 13:28:14
Modified: . Changes
src/modules/perl perl_config.c
Log:
PerlPassEnv/PerlSetEnv will now call my_setenv() so the C enviroment
array is also updated
Revision Changes Path
1.170 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /export/home/cvs/modperl/Changes,v
retrieving revision 1.169
retrieving revision 1.170
diff -u -r1.169 -r1.170
--- Changes 1998/10/01 20:26:15 1.169
+++ Changes 1998/10/01 20:28:12 1.170
@@ -8,6 +8,9 @@
=item 1.15_02-dev
+PerlPassEnv/PerlSetEnv will now call my_setenv() so the C enviroment
+array is also updated
+
Apache::Registry will return DECLINED if -d $r->filename so
DirectoryIndex, etc., will work again
1.37 +1 -0 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.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- perl_config.c 1998/09/26 15:48:33 1.36
+++ perl_config.c 1998/10/01 20:28:13 1.37
@@ -197,6 +197,7 @@
if(val != NULL) {
MP_TRACE_d(fprintf(stderr, "PerlPassEnv: `%s'=`%s'\n", key, val));
hv_store(GvHV(envgv), key, strlen(key), newSVpv(val,0), FALSE);
+ my_setenv(key, val);
}
}
}