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 ge...@apache.org on 2002/03/24 19:22:56 UTC
cvs commit: modperl/t/net/perl api.pl
geoff 02/03/24 10:22:56
Modified: . Changes STATUS
src/modules/perl mod_perl.c
t/net/perl api.pl
Log:
make sure PerlSetEnv variables are visible after first access
to each child, and add tests to verify fix
Submitted by: geoff
Reviewed by: doug
Revision Changes Path
1.628 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.627
retrieving revision 1.628
diff -u -r1.627 -r1.628
--- Changes 24 Mar 2002 02:07:58 -0000 1.627
+++ Changes 24 Mar 2002 18:22:56 -0000 1.628
@@ -10,6 +10,9 @@
=item 1.26_01-dev
+make sure PerlSetEnv variables are visible after first access
+to each child [Geoff Young <ge...@modperlcookbook.org>]
+
workaround Apache::Constants::AUTOLOAD problem with bleedperl
the first flag argument to perl cannot start with space, since perl tries
1.5 +1 -10 modperl/STATUS
Index: STATUS
===================================================================
RCS file: /home/cvs/modperl/STATUS,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- STATUS 24 Mar 2002 02:17:09 -0000 1.4
+++ STATUS 24 Mar 2002 18:22:56 -0000 1.5
@@ -1,5 +1,5 @@
mod_perl 1.3 STATUS:
- Last modified at [$Date: 2002/03/24 02:17:09 $]
+ Last modified at [$Date: 2002/03/24 18:22:56 $]
Release:
@@ -20,15 +20,6 @@
Report: http://marc.theaimsgroup.com/?l=apache-modperl&m=97449481013350&w=2
Status:
doc patch at http://marc.theaimsgroup.com/?l=apache-modperl&m=97450363501652&w=2
-
- * PerlSetEnv scoping
- Report: http://marc.theaimsgroup.com/?l=apache-modperl&m=99148497206388&w=2
- Status:
- may be fixed here
- http://marc.theaimsgroup.com/?l=apache-modperl&m=99473571809129&w=2
- but that patch has this issue (I think)
- http://marc.theaimsgroup.com/?l=apache-modperl&m=99565226811557&w=2
- --Geoff
* %LocationMatch <Perl> bug
Report: http://marc.theaimsgroup.com/?l=apache-modperl&m=98260537428737&w=2
1.142 +1 -0 modperl/src/modules/perl/mod_perl.c
Index: mod_perl.c
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/mod_perl.c,v
retrieving revision 1.141
retrieving revision 1.142
diff -u -r1.141 -r1.142
--- mod_perl.c 10 Jul 2001 03:30:27 -0000 1.141
+++ mod_perl.c 24 Mar 2002 18:22:56 -0000 1.142
@@ -1392,6 +1392,7 @@
/* PerlSetEnv
* update only if the table changes across a request
*/
+ MP_HASENV_on(cld);
mod_perl_dir_env(r, cld);
cfg->dir_env = cld->env;
}
1.48 +2 -1 modperl/t/net/perl/api.pl
Index: api.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/api.pl,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -r1.47 -r1.48
--- api.pl 6 Jul 2001 16:09:53 -0000 1.47
+++ api.pl 24 Mar 2002 18:22:56 -0000 1.48
@@ -16,7 +16,7 @@
my $is_xs = ($r->uri =~ /_xs/);
-my $tests = 74;
+my $tests = 75;
my $is_win32 = WIN32;
$tests += 4 unless $is_win32;
my $test_get_set = Apache->can('set_handlers') && ($tests += 4);
@@ -94,6 +94,7 @@
test ++$i, $r->last;
test ++$i, $ENV{GATEWAY_INTERFACE};
+test ++$i, defined $ENV{KeyForPerlSetEnv};
test ++$i, scalar $r->cgi_var('GATEWAY_INTERFACE');
test ++$i, defined($r->seqno);
test ++$i, $r->protocol;