Re: SEGV in bleadperl@17165 under mod_perl

[Doug MacEachern]

patch below also cures (when calling system() with Apache::Upload handles 
still alive).  seems PerlIO_importFILE() should have a mode argument, in 
this case we only want to allow reading on the given FILE*

--- Request/Request.xs~ Sun Jan 20 09:27:35 2002
+++ Request/Request.xs  Thu Jun 13 15:07:28 2002
@@ -38,6 +38,7 @@
 
 #undef __attribute__
 #include "mod_perl.h"
+#include "perliol.h"
 
 #ifdef WIN32
 
@@ -494,6 +495,7 @@
     CODE:
     if (  ( RETVAL = PerlIO_importFILE(ApacheUpload_fh(upload),0) ) == NULL  )
            XSRETURN_UNDEF;
+    PerlIOBase((PerlIO*)RETVAL)->flags &= ~PERLIO_F_CANWRITE;
 
     OUTPUT:
     RETVAL