Changeset 1135

Show
Ignore:
Timestamp:
07/24/06 04:42:09
Author:
miyagawa
Message:

r3169@rock: miyagawa | 2006-07-23 00:14:02 +0900

use IO::Socket
INET for network detection. DNS resolver takes forever before it gives up

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/refactoring-planet/plagger/t/TestPlagger.pm

    r1133 r1135  
    2222    return if $ENV{NO_NETWORK}; 
    2323 
    24     require Net::DNS::Resolver; 
    25     my $res = Net::DNS::Resolver->new; 
    26     my $q   = $res->search("plagger.org"); 
    27     $q && $q->answer; 
     24    require IO::Socket::INET; 
     25    my $conn = IO::Socket::INET->new("www.google.com:80"); 
     26    defined $conn; 
    2827} 
    2928