stas        2003/09/16 12:51:06

  Modified:    src/modules/perl Apache.xs
  Log:
  s/FALSE/GV_ADDWARN/ in gv_fetchpv() which adds no overhead, but prints a
  warning if the pv doesn't exist. suggested by Tim Bunce.
  
  Revision  Changes    Path
  1.129     +2 -1      modperl/src/modules/perl/Apache.xs
  
  Index: Apache.xs
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
  retrieving revision 1.128
  retrieving revision 1.129
  diff -u -u -r1.128 -r1.129
  --- Apache.xs 6 Jul 2003 04:51:20 -0000       1.128
  +++ Apache.xs 16 Sep 2003 19:51:06 -0000      1.129
  @@ -1134,7 +1134,8 @@
        sv_setiv(sendh, 0);
       }
       else {
  -     CV *cv = GvCV(gv_fetchpv("Apache::write_client", FALSE, SVt_PVCV));
  +        /* should exist already */
  +        CV *cv = GvCV(gv_fetchpv("Apache::write_client", GV_ADDWARN, SVt_PVCV));
        soft_timeout("mod_perl: Apache->print", r);
        PUSHMARK(mark);
   #ifdef PERL_OBJECT
  
  
  

Reply via email to