cvs commit: modperl-2.0/src/modules/perl modperl_callback.c

[dougm]

dougm       01/04/11 20:49:42

  Modified:    src/modules/perl modperl_callback.c
  Log:
  assume handler return status is OK for non-http status codes and for 200 (HTTP_OK)
  
  Revision  Changes    Path
  1.39      +4 -0      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.38
  retrieving revision 1.39
  diff -u -r1.38 -r1.39
  --- modperl_callback.c        2001/04/06 02:18:15     1.38
  +++ modperl_callback.c        2001/04/12 03:49:42     1.39
  @@ -88,6 +88,10 @@
       }
       else {
           status = POPi;
  +        /* assume OK for non-http status codes and for 200 (HTTP_OK) */
  +        if ((status < 100) || (status == 200) || (status > 600)) {
  +            status = OK;
  +        }
       }
   
       PUTBACK;