nonblocking_io.pl

################################################################################
# Nonblocking io for perl/socket (PDS)
################################################################################
sub set_block {
	my $sock = shift;
	return &set_nonblock($sock, 1);
}
sub set_nonblock {
	my $sock  = shift;
	my $block = shift;
	if ($^O eq 'MSWin32') {
	      my $f = 0x8004667e;	# FIONBIO for windows
	      my $v = pack("L", $block ? 0 : 1);
	      ioctl($sock, $f, $v);
	      return;
	}
	my $flags = fcntl($sock, F_GETFL, 0);
	if ($block) {
		$flags &= ~O_NONBLOCK;
	} else {
		$flags |=  O_NONBLOCK;
	}
	fcntl($sock, F_SETFL, $flags);
}