### along with this program; if not, write to the Free Software Foundation,
### Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-my $VERSION = "0.1.0~unfinished";
+my $VERSION = "0.1.0";
use strict;
my ($n, $t) = select my $rfd_out = $rfd_in, undef, undef, undef;
if ($n >= 0) { }
elsif ($! == EINTR) { next SELECT; }
- else { sysfail "select failed: $!"; }
+ else { sysfail "select failed: $!"; }
FD: for my $fd (keys %fd) {
next FD unless vec $rfd_out, $fd, 1;
my ($sk, $s) = @{$fd{$fd}};
my ($n, $t) = select my $rfd_out = $rfd_in, undef, undef, undef;
if ($n >= 0) { }
elsif ($! == EINTR) { next SELECT; }
- else { sysfail "select failed: $!"; }
+ else { sysfail "select failed: $!"; }
FD: for my $fd (keys %SERVMAP) {
next FD unless vec $rfd_out, $fd, 1;
my ($s, $a, $sk) = @{$SERVMAP{$fd}};