Re: Net::Ping 2.23 t/450_service.t

[Dan Kogai]

On Tuesday, Oct 22, 2002, at 03:32 Asia/Tokyo, Blair Zajac wrote:

This worked for me on Irix on perl 5.6.1 and 5.8.0.

Still not good'uff on FreeBSD;

> sudo perl -Mblib t/450_service.t Password:1..26
# Running under perl version 5.008 for freebsd
# Current time local: Mon Oct 21 18:55:24 2002
# Current time GMT: Tue Oct 22 03:55:24 2002
# Using Test.pm version 1.22
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
ok 11
ok 12
WARNING: Nonblocking connect connected anyway? (freebsd) at /usr/home/dankogai/work/Net-Ping/blib/lib/Net/Ping.pm line 779.
ok 13
ok 14
ok 15
ok 16
ok 17
not ok 18
# Failed test 18 in t/450_service.t at line 145
# t/450_service.t line 145 is: ok $p -> ack();
ok 19
ok 20
WARNING: Nonblocking connect connected anyway? (freebsd) at /usr/home/dankogai/work/Net-Ping/blib/lib/Net/Ping.pm line 779.
ok 21
ok 22
ok 23
ok 24
not ok 25
# Failed test 25 in t/450_service.t at line 186
# t/450_service.t line 186 is: if (!ok $p -> ping("127.0.0.1")) {warn "ERRNO: $!";}
ERRNO: Connection refused at t/450_service.t line 186.
ok 26

It's not a matter of Fcntl. There are many (and more and more) systems that refuse SYN. Rob, I strongly suggest you change your default platform to OpenBSD or FreeBSD if OpenBSD is too difficult to install. Linux is way too loose on default network configuration.

Dan the Man with Too Many "make test" For a Day