You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1998/09/02 19:47:10 UTC
cvs commit: modperl/src/modules/perl mod_perl.h
dougm 98/09/02 10:47:09
Modified: src/modules/perl mod_perl.h
Log:
save this goodie for later
Revision Changes Path
1.45 +3 -0 modperl/src/modules/perl/mod_perl.h
Index: mod_perl.h
===================================================================
RCS file: /export/home/cvs/modperl/src/modules/perl/mod_perl.h,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -r1.44 -r1.45
--- mod_perl.h 1998/09/01 17:42:07 1.44
+++ mod_perl.h 1998/09/02 17:47:09 1.45
@@ -195,6 +195,9 @@
#define GvSV_setiv(gv,val) sv_setiv(GvSV(gv), val)
+#define sv_is_http_code(sv) \
+ ((SvIOK(sv) && (SvIVX(sv) >= 100) && (SvIVX(sv) <= 600)) ? SvIVX(sv) : FALSE)
+
#define Apache__ServerStarting(val) \
{ \
GV *sgv = GvSV_init("Apache::ServerStarting"); \