perl-5.8.8のmake test時のネットワークアクセス.

other
  • 172.29.249.249というローカルアドレスが/lib/Net/Ping/t/以下にあるテストコードに書込まれており,接続チェックに使用される.計3万回近いTCP7番へのアクセスが発生する.
  • テストコードのアドレス定義部分.著名なWEBサーバーも挙げられている.
# Try a few remote servers
my $webs = {
  # Hopefully this is never a routeable host
  "172.29.249.249" => 0,

  # Hopefully all these web ports are open
  "www.geocities.com." => 1,
  "www.freeservers.com." => 1,
  "yahoo.com." => 1,
  "www.yahoo.com." => 1,
  "www.about.com." => 1,
  "www.microsoft.com." => 1,
  "127.0.0.1" => 1,
};
  • ext/IO/t/io_multihomed.tにも10.250.230.10,10.250.230.12というローカルアドレスがテスト用に定義されている.
sub _get_addr
{
    my($sock,$addr_str, $multi) = @_;
    #print "_get_addr($sock, $addr_str, $multi)\n";

    print "not " unless $multi;
    print "ok 2\n";

    (
     # private IP-addresses which I hope does not work anywhere :-)
     inet_aton("10.250.230.10"),
     inet_aton("10.250.230.12"),
     inet_aton("127.0.0.1")        # loopback
    )
}
    • 10.250.230.10はext/Socket/t/Socket.tでも使用されている.