cvs commit: httpd-apreq/Request Request.xs

[jimw]

jimw        01/01/09 16:49:46

  Modified:    .        Changes
               Request  Request.xs
  Log:
  fix compile errors when PerlIO is used
  Submitted by: dougm, Randy Kobes <[EMAIL PROTECTED]>
  
  Revision  Changes    Path
  1.29      +3 -0      httpd-apreq/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/httpd-apreq/Changes,v
  retrieving revision 1.28
  retrieving revision 1.29
  diff -u -r1.28 -r1.29
  --- Changes   2001/01/09 04:21:07     1.28
  +++ Changes   2001/01/10 00:49:46     1.29
  @@ -4,6 +4,9 @@
   
   =item 0.32 - ?
   
  +fix compile errors when PerlIO is used
  +[dougm, Randy Kobes <[EMAIL PROTECTED]>]
  +
   fix subclassing mechanism so the the value of an `r' or `_r' key can
   be a hash ref [dougm]
   
  
  
  
  1.8       +9 -2      httpd-apreq/Request/Request.xs
  
  Index: Request.xs
  ===================================================================
  RCS file: /home/cvs/httpd-apreq/Request/Request.xs,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- Request.xs        2001/01/09 04:21:08     1.7
  +++ Request.xs        2001/01/10 00:49:46     1.8
  @@ -18,6 +18,13 @@
   #define PerlLIO_close(fd) close((fd)) 
   #endif
   
  +#ifdef PerlIO
  +typedef PerlIO * InputStream;
  +#else
  +typedef FILE * InputStream;
  +#define PerlIO_importFILE(fp,flags) fp
  +#endif
  +
   static char *r_keys[] = { "_r", "r", NULL };
   
   static SV *r_key_sv(SV *in)
  @@ -199,12 +206,12 @@
   
   PROTOTYPES: DISABLE 
   
  -FILE *
  +InputStream
   ApacheUpload_fh(upload)
       Apache::Upload upload
   
       CODE:
  -    if (!(RETVAL = ApacheUpload_fh(upload))) {
  +    if (!(RETVAL = PerlIO_importFILE(ApacheUpload_fh(upload),0))) {
        XSRETURN_UNDEF;
       }