stas 2003/10/02 10:45:52
Modified: src/modules/perl modperl_callback.c
. Changes
Log:
Prevent the 'Use of uninitialized value.' warning when
ModPerl::Util::exit is used.
Revision Changes Path
1.60 +8 -1 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.59
retrieving revision 1.60
diff -u -u -r1.59 -r1.60
--- modperl_callback.c 23 Sep 2003 20:12:11 -0000 1.59
+++ modperl_callback.c 2 Oct 2003 17:45:52 -0000 1.60
@@ -74,7 +74,14 @@
status = OK;
}
else {
- status = POPi;
+ SV* status_sv = POPs;
+ if (SvIOK(status_sv)) {
+ status = (IV)SvIVx(status_sv);
+ }
+ else {
+ /* 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)) {
1.227 +3 -0 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.226
retrieving revision 1.227
diff -u -u -r1.226 -r1.227
--- Changes 2 Oct 2003 06:29:46 -0000 1.226
+++ Changes 2 Oct 2003 17:45:52 -0000 1.227
@@ -12,6 +12,9 @@
=item 1.99_11-dev -
+Prevent the 'Use of uninitialized value.' warning when
+ModPerl::Util::exit is used. [Stas]
+
To make the test-sute sandbox-friendly, which break when things try to
run off /tmp, use t/logs as the location of the mod_cgid socket and
TMPDIR env var [Haroon Rafique <[EMAIL PROTECTED]>]
