cvs commit: httpd-apreq/Request Request.xs

[joes]

joes        2003/04/13 19:45:24

  Modified:    Request  Request.xs
  Log:
  Correct botched PERL_VERSION usage.
  
  Revision  Changes    Path
  1.35      +3 -2      httpd-apreq/Request/Request.xs
  
  Index: Request.xs
  ===================================================================
  RCS file: /home/cvs/httpd-apreq/Request/Request.xs,v
  retrieving revision 1.34
  retrieving revision 1.35
  diff -u -r1.34 -r1.35
  --- Request.xs        12 Apr 2003 21:49:49 -0000      1.34
  +++ Request.xs        14 Apr 2003 02:45:24 -0000      1.35
  @@ -1,4 +1,5 @@
   #include "apache_request.h"
  +#include "patchlevel.h"
   
   #ifdef WIN32
   
  @@ -525,7 +526,7 @@
       fp = ApacheUpload_fh(upload);
       if (fp == NULL)
           XSRETURN_UNDEF;
  -#if PERL_VERSION > 500703
  +#if PERL_REVISION == 5 && PERL_VERSION > 7
       fd = PerlLIO_dup(fileno(fp));
       /* XXX: user should check errno on undef returns */
   
  @@ -544,7 +545,7 @@
   
       CLEANUP:
       /* XXX: there may be a leak/segfault in here somewhere */
  -#if PERL_VERSION > 500703
  +#if PERL_REVISION == 5 && PERL_VERSION > 7
       if (ST(0) != &PL_sv_undef) {
        IO *io = GvIOn((GV*)SvRV(ST(0)));
        if (upload->req->parsed)