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
