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

Reply via email to