diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-10-20 15:04:05 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-10-20 15:04:05 +0000 |
| commit | 6af6a0fceebef98791348e6b03aaaf6575cab79c (patch) | |
| tree | b0b4befee9526d36b9272f848f8dd4e2b59f9387 /perl-install | |
| parent | fa492843fb0d08958917d557cd1dd5d6ac8d5356 (diff) | |
| download | drakx-6af6a0fceebef98791348e6b03aaaf6575cab79c.tar drakx-6af6a0fceebef98791348e6b03aaaf6575cab79c.tar.gz drakx-6af6a0fceebef98791348e6b03aaaf6575cab79c.tar.bz2 drakx-6af6a0fceebef98791348e6b03aaaf6575cab79c.tar.xz drakx-6af6a0fceebef98791348e6b03aaaf6575cab79c.zip | |
fix #6159: fix detection when a local name server is faking the
connection because of its cache by checking at least a packet is
ack-ed
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/tools.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index 993fe2c2a..6f9a1ff52 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -234,13 +234,13 @@ sub test_connected { sub connected2() { if ($kid_pid = open(my $kid_to_read, "-|")) { - #- parent - $kid_to_read; - } else { - #- child - my $a = gethostbyname("mandrakesoft.com") ? 1 : 0; - print $a; - c::_exit(0); + #- parent + $kid_to_read; + } else { + #- child + require Net::Ping; + print Net::Ping->new("icmp")->ping("mandrakesoft.com") ? 1 : 0; + c::_exit(0); } } |