1 # Test to make sure object can be instantiated for syn protocol.
4 unless (eval "require Socket") {
5 print "1..0 \# Skip: no Socket\n";
8 unless (getservbyname('echo', 'tcp')) {
9 print "1..0 \# Skip: no echo port\n";
18 # Everything loaded fine
21 my $p = new Net::Ping "syn";