New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Listen to socket does not return when host is undefined or 0.0.0.0. #11243
Comments
From Bo.Johansson@lsn.seCreated by bo.johansson@lsn.seThe perl function listen does not return when host is undefined or 0.0.0.0. Example: This is setup_listener from HTTP-Server-Simple-0.44/lib/HTTP/Server/Simple.pm sub setup_listener { my $tcp = getprotobyname('tcp'); If $self->host is undefined or '0.0.0.0' the call to listen does not return. Perl Info
|
From @jkeenanOn Fri, 08 Apr 2011 08:47:19 GMT, boilund wrote:
Can the problem with Perl function 'listen' (assuming there *is* a problem) be demonstrated apart from this use in HTTP::Server::Simple? The code provided is not sufficient to reproduce the problem (at least by a person not already familiar with that module). Thank you very much. -- |
The RT System itself - Status changed from 'new' to 'open' |
From Bo.Johansson@lsn.seHej! I have run: use strict; use HTTP::Server::Simple; my $server = HTTP::Server::Simple->new(); Using "$server->host( undef );" or "$server->host( '0.0.0.0' );" works Best regards Den 2016-12-31 kl. 16:14, skrev James E Keenan via RT:
|
From @jkeenanOn Sun, 01 Jan 2017 10:36:01 GMT, boilund wrote:
I modified HTTP::Server::Simple::setup_listener() to capture the return value of 'listen()' before returning from the method. ##### I then called your program -- with '$server->host(undef)' -- with the perl debugger and stepped through to the lines above. The value of '$rv' is '1', so listen() returned a true value. Where the program *did* hang was in this part of subroutine '_default_run(()': ##### The program hung on the 2nd 'while' loop. When I hit Ctrl-C, the program resumed at the 'local $SIG{PIPE}...' line. -- |
From @LeontOn Sun, Jan 1, 2017 at 11:34 AM, Bo Johansson <bo.johansson@lsn.se> wrote:
Does that mean this ticket is closable? Leon |
@iabyn - Status changed from 'open' to 'resolved' |
From @iabynOn Sun, Jan 01, 2017 at 07:20:48PM +0100, Leon Timmermans wrote:
In the absence of any further feedback, I'm closing this ticket. -- |
Migrated from rt.perl.org#88080 (status was 'resolved')
Searchable as RT88080$
The text was updated successfully, but these errors were encountered: