revert socket option patch

diff --git a/perl/FCGI.PL b/perl/FCGI.PL
index f8343df..c615c8b 100644 (file)
--- a/perl/FCGI.PL
+++ b/perl/FCGI.PL
@@ -6,7 +6,7 @@ open OUT, ">FCGI.pm";
 
 print "Generating FCGI.pm\n";
 print OUT <<'EOP';
-# $Id: FCGI.PL,v 1.26 2001/08/22 17:20:20 skimo Exp $
+# $Id: FCGI.PL,v 1.27 2001/09/01 13:07:28 skimo Exp $
 
 package FCGI;
 
@@ -261,9 +261,8 @@ __END__
 
 *FAIL_ACCEPT_ON_INTR = sub() { 1 };
 
-sub Request(;***$*$) {
+sub Request(;***$$$) {
     my @defaults = (\*STDIN, \*STDOUT, \*STDERR, \%ENV, 0, 0);
-    $_[4] = fileno($_[4]) if defined(fileno($_[4]));
     splice @defaults,0,@_,@_;
     RequestX(@defaults);
 }