I'm flipping through the IO::* tests when I hit this in io_sel.t
# we assume that we can write to STDOUT :-)
$sel->add([\*STDOUT, "ok 12\n"]);
@a = $sel->can_write;
print "not " unless @a == 1;
print "ok 11\n";
VMS wipes that smug smile off the comment:
$ perl "-I../lib" ../ext/IO/lib/IO/t/io_sel.t
1..23
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
not ok 11
Can't use an undefined value as a symbol reference at ../ext/io/lib/io/t/io_sel.
t line 71.
%C-F-ENOTSOCK, socket operation on non-socket
The problem appears to be select() itself, though I don't know enough
about select() to verify. I ran this little program, cargo-culted
from perlfunc.
$rin = '';
vec($rin, fileno(STDOUT), 1) = 1;
print select($rin, undef, undef, undef);
which printed -1.
FWIW Config shows d_select is defined, but i_sysselct is not.
selectminbits is 32, selecttype is "fd_set *"
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
no paste enema
lycos is taught about it
my ass is sealed
-- Schwern
