Author: sparky
Date: Tue Dec 15 22:00:01 2009
New Revision: 11045
Modified:
toys/rsget.pl/RSGet/HTTPServer.pm
Log:
- fixed HTTP Frozen bug (again)
Modified: toys/rsget.pl/RSGet/HTTPServer.pm
==============================================================================
--- toys/rsget.pl/RSGet/HTTPServer.pm (original)
+++ toys/rsget.pl/RSGet/HTTPServer.pm Tue Dec 15 22:00:01 2009
@@ -21,7 +21,7 @@
my $socket = IO::Socket::INET->new(
Proto => 'tcp',
LocalPort => $port,
- Listen => SOMAXCONN,
+ Listen => 5,
Reuse => 1,
Blocking => 0,
) || return undef;
@@ -49,6 +49,8 @@
my $post = "";
my $OK = 0;
eval {
+ local $SIG{__DIE__};
+ delete $SIG{__DIE__};
local $SIG{ALRM} = sub { die "HTTP: Frozen !\n"; };
alarm 2;
$request = <$client>;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
