# Public domain sub TEST_select { TryCompile 'HAVE_SELECT', << 'EOF'; #include #include #include #include #include int main(int argc, char *argv[]) { struct timeval tv; int rv; tv.tv_sec = 1; tv.tv_usec = 1; rv = select(0, NULL, NULL, NULL, &tv); return (rv == -1 && errno != EINTR); } EOF } sub DISABLE_select { MkDefine('HAVE_SELECT', 'no'); MkSaveUndef('HAVE_SELECT'); } BEGIN { my $n = 'select'; $DESCR{$n} = 'the select() interface'; $TESTS{$n} = \&TEST_select; $DISABLE{$n} = \&DISABLE_select; $DEPS{$n} = 'cc'; } ;1