dougm 00/04/13 11:43:24
Modified: . Changes
src/modules/perl Apache.xs
Log:
fix PerlSetVar inheritance bug
Revision Changes Path
1.468 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.467
retrieving revision 1.468
diff -u -r1.467 -r1.468
--- Changes 2000/04/13 06:07:32 1.467
+++ Changes 2000/04/13 18:43:21 1.468
@@ -10,6 +10,9 @@
=item 1.22_01-dev
+fix PerlSetVar inheritance bug
+[Sander van Zoest <[EMAIL PROTECTED]>]
+
set r->notes("error-notes") to $@ if $@ after a Perl*Handlers is run
[Doug / Tom Mornini <[EMAIL PROTECTED]>]
1.95 +1 -1 modperl/src/modules/perl/Apache.xs
Index: Apache.xs
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.94
retrieving revision 1.95
diff -u -r1.94 -r1.95
--- Apache.xs 2000/04/05 04:55:55 1.94
+++ Apache.xs 2000/04/13 18:43:23 1.95
@@ -1929,7 +1929,7 @@
TABLE_GET_SET(c->vars, FALSE);
}
if (!SvTRUE(RETVAL)) {
- s = r ? r->server : perl_get_startup_server();
+ s = r && r->server ? r->server : perl_get_startup_server();
if (s && s->module_config) {
SvREFCNT_dec(RETVAL); /* in case above did newSV(0) */
cs = (perl_server_config *)get_module_config(s->module_config,
