httpd-apreq-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Doug MacEachern <do...@covalent.net>
Subject PerlIO patch
Date Tue, 09 Jan 2001 06:36:17 GMT
this patch is required to work with perl-current (5.7.1-dev), it should
work with other Perls, but i have not tested.

Index: Request/Request.xs
===================================================================
RCS file: /home/cvs/httpd-apreq/Request/Request.xs,v
retrieving revision 1.7
diff -u -r1.7 Request.xs
--- Request/Request.xs	2001/01/09 04:21:08	1.7
+++ Request/Request.xs	2001/01/09 06:27:54
@@ -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;
     }
 


Mime
View raw message