#!./perl use strict; require 5.002; ## Main program. { my ( $bitmask, $nfound, ); print "1..3\n"; ## Does this OS support sockets? use Socket qw(AF_INET SOCK_STREAM); test (socket SOCK, AF_INET, SOCK_STREAM, 0); ## Does this OS support select()? vec($bitmask='', fileno(SOCK), 1) = 1; eval { $nfound = select($bitmask, '', '', 0) }; test ($@ eq ""); ## Did select() return a correct value? test (defined($nfound) and ($nfound == 0 or $nfound == 1)); exit; } # end main program ############################ Subroutines ############################# BEGIN { my $testnum = 0; sub test { if (defined($_[0]) and $_[0]) { print "ok ", ++$testnum, "\n"; } else { print "not ok ", ++$testnum, "\n"; } } # end sub test }