geoff 2003/10/07 12:16:13
Modified: src/modules/perl modperl_callback.c
Log:
alter modperl_callback so that return values are propagated
to Apache just as they were returned from the Perl callback -
no second-guessing the status the callback wanted to return.
Revision Changes Path
1.61 +2 -3 modperl-2.0/src/modules/perl/modperl_callback.c
Index: modperl_callback.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_callback.c,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -r1.60 -r1.61
--- modperl_callback.c 2 Oct 2003 17:45:52 -0000 1.60
+++ modperl_callback.c 7 Oct 2003 19:16:13 -0000 1.61
@@ -82,9 +82,8 @@
/* ModPerl::Util::exit doesn't return an integer value */
status = OK;
}
- /* assume OK for non-http status codes and for 200 (HTTP_OK) */
- if (((status > 0) && (status < 100)) ||
- (status == 200) || (status > 600)) {
+ /* assume OK for 200 (HTTP_OK) */
+ if ((status == 200)) {
status = OK;
}
}
