Re: SEGV in bleadperl@17165 under mod_perl

[Doug MacEachern]

seems to be an Apache::Request issue with perlio.  i can get a similar 
segv with the modperl test change below.
system() triggers a PERL_FLUSHALL_FOR_CHILD; with the Apache::Upload 
filehandles still alive.  there is some ugly code to import the FILE* from 
ApacheUpload_fh to a PerlIO, which could be the culprit.
is there any way to flag a PerlIO to not be flushed during 
PerlIO_flush(NULL) ?

--- t/net/perl/request-upload.pl~       Thu Dec 30 11:51:16 1999
+++ t/net/perl/request-upload.pl        Thu Jun 13 14:31:37 2002
@@ -28,7 +28,8 @@
     my $name = $upload->name;
     my $type = $upload->type;
     next unless $filename;
-
+    local $ENV{PATH} = '/bin';
+    system "/bin/echo $filename >> /tmp/uploads";
     print "$name $filename ($type)";
     if ($fh and $name) {
        no strict;