perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0 Changes
Date Thu, 02 Oct 2003 17:45:52 GMT
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 <haroon.rafique@utoronto.ca>]
  
  
  

Mime
View raw message