perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ge...@apache.org
Subject cvs commit: modperl-2.0/src/modules/perl modperl_callback.c
Date Tue, 07 Oct 2003 19:16:13 GMT
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;
               }
           }
  
  
  

Mime
View raw message