joes 2003/01/05 12:35:50
Modified: Request Request.xs
Log:
Change Request.xs upload_hook writer to stdio's fwrite()
Revision Changes Path
1.31 +1 -1 httpd-apreq/Request/Request.xs
Index: Request.xs
===================================================================
RCS file: /home/cvs/httpd-apreq/Request/Request.xs,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -r1.30 -r1.31
--- Request.xs 5 Jan 2003 20:02:31 -0000 1.30
+++ Request.xs 5 Jan 2003 20:35:50 -0000 1.31
@@ -222,7 +222,7 @@
if (SvTRUE(ERRSV))
return -1;
- return PerlIO_write(PerlIO_importFILE(upload->fp,0), buf, len);
+ return fwrite(buf, 1, len, upload->fp);
}
static void upload_hook_cleanup(void *ptr)
