Re: perl 5.8 killed my socket!

I believe your problem may be the same as mentioned in this message.

The essential problem is that the reaper seems to interrupt the accept loop in perl 5.8, which didn't happen in 5.6.1.

Here is how I handled it in one of my scripts:

REDO:
while (my $ns = $server->accept) {
  # Normal accept loop here.
}
print "Got an interruption: $!\n";
goto REDO;
[download]

Comment on Re: perl 5.8 killed my socket! Download Code

Replies are listed 'Best First'.
Re^2: perl 5.8 killed my socket! by particle (Vicar) on Dec 11, 2002 at 01:17 UTC
goto LABEL is generally frowned upon. instead, try: `## bare block with redo to catch perl 5.008 accept loop interrupts ## (see http://archive.develooper.com/macosx@perl.org/msg03022.html fo +r details) { while ( my $ns = $server->accept() ) { # Normal accept loop here. } print "Got an interruption: $!\n"; redo; }` [download] ~Particle accelerates	[reply] [d/l] [select]
Re: Re^2: perl 5.8 killed my socket! by drake50 (Pilgrim) on Dec 11, 2002 at 05:49 UTC
Problem solved! Thanks guys:)	[reply]
Re^3: perl 5.8 killed my socket! by Aristotle (Chancellor) on Dec 11, 2002 at 15:23 UTC
`while(1) { while ( my $ns = $server->accept() ) { # Normal accept loop here. } print "Got an interruption: $!\n"; }` [download] Makeshifts last the longest.	[reply] [d/l]