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

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);
     }
 }