in reply to Re: perl 5.8 killed my socket!
in thread perl 5.8 killed my socket!

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*

Replies are listed 'Best First'.
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]

In Section Seekers of Perl Wisdom