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 2003/12/01 18:30:19 UTC
cvs commit: modperl/src/modules/perl Apache.xs
geoff 2003/12/01 09:30:19
Modified: src/modules/perl Apache.xs
Log:
fix "PerlSetVar Foo 0" so that $r->dir_config('Foo') returns 0, not undef
Revision Changes Path
1.130 +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.129
retrieving revision 1.130
diff -u -r1.129 -r1.130
--- Apache.xs 16 Sep 2003 19:51:06 -0000 1.129
+++ Apache.xs 1 Dec 2003 17:30:19 -0000 1.130
@@ -2084,7 +2084,7 @@
&perl_module);
TABLE_GET_SET(c->vars, FALSE);
}
- if (!SvTRUE(RETVAL)) {
+ if (!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) */