LINUX.ORG.RU

Perl HTTP::Daemon глючит?


0

0

Есть такой простой прокси на перл:
http://sanych99.narod.ru/New_Site/code/proxy/

обрабатывает один запрос и вываливается.
Системный вызов accept первый раз отрабатывает,
а второй раз (после того, как родитель делает return из fork)
возвращает значение ERESTARTSYS


В чём тут дело- HTTP::Daemon глючит?

Версии:
Linux 2.4.20 #2 Wed Apr 30 09:09:42 MSD 2003 i686 unknown
libwww-perl-5.69



{ ### MAIN ###
use HTTP::Daemon;
my $master = new HTTP::Daemon LocalAddr => $HOST, LocalPort => $PORT;
warn "set your proxy to <URL:", $master->url, ">";
my $slave;
&handle_connection($slave) while $slave = $master->accept;
exit 0;
} ### END MAIN ###

sub handle_connection {
my $connection = shift; # HTTP::Daemon::ClientConn
my $pid = fork;
if ($pid) { # spawn OK, and I'm the parent
close $connection;
return;
}
## spawn failed, or I'm a good child
my $request = $connection->get_request;
if (defined($request)) {
my $response = &fetch_request($request);
$connection->send_response($response);
close $connection;
}
exit 0 if defined $pid; # exit if I'm a good child with a good parent
}

anonymous
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.