Re: SEGV in bleadperl@17165 under mod_perl

[Doug MacEachern]

also note that the problem goes away if PERL_FLUSHALL_FOR_CHILD happens 
after the Apache::Upload handles have gone out of scope.  the change below 
does not trigger and segvs, all tests pass.  andreas, you could try to 
make sure your Apache::Upload handles have gone out of scope (or are 
undef-ed) before calling Mail::Mailer.  also make sure you are using 
the 1.0 version of libapreq, i think older versions leaked filehandles.

--- t/net/perl/request-upload.pl~       Thu Dec 30 11:51:16 1999
+++ t/net/perl/request-upload.pl        Thu Jun 13 14:41:51 2002
@@ -107,3 +107,5 @@
     print "$filename bytes=$bytes,wanted=$wanted\n";
 }
 
+local $ENV{PATH} = '/bin';
+system "/bin/echo ok >> /tmp/uploads";