perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ge...@apache.org
Subject cvs commit: modperl/src/modules/perl Apache.xs
Date Mon, 01 Dec 2003 17:30:19 GMT
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) */
  
  
  

Mime
View raw message