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) */