geoff 2004/03/09 13:52:33
Modified: src/modules/perl Apache.xs
Log:
make sure that RETVAL contains a valid pointer before calling SvOK
Revision Changes Path
1.131 +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.130
retrieving revision 1.131
diff -u -r1.130 -r1.131
--- Apache.xs 1 Dec 2003 17:30:19 -0000 1.130
+++ Apache.xs 9 Mar 2004 21:52:32 -0000 1.131
@@ -2084,7 +2084,7 @@
&perl_module);
TABLE_GET_SET(c->vars, FALSE);
}
- if (!SvOK(RETVAL)) {
+ if (!(RETVAL && SvOK(RETVAL))) {
s = r && r->server ? r->server : perl_get_startup_server();
if (s && s->module_config) {
SvREFCNT_dec(RETVAL); /* in case above did newSV(0) */
