From 26069ec4f6b6d079a7ee289dc73310ef977f307f Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 16 Jul 2004 10:58:42 +0000
Subject: use a tcp ping in check_link_beat if not root

---
 perl-install/network/tools.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index e49e8dc2b..1be0037c9 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -131,7 +131,7 @@ sub test_connected {
 sub check_link_beat() {
     bg_command->new(sub {
                         require Net::Ping;
-                        print Net::Ping->new("icmp")->ping("mandrakesoft.com") ? 1 : 0;
+                        print Net::Ping->new($> ? "tcp" : "icmp")->ping("mandrakesoft.com") ? 1 : 0;
                     });
 }
 
-- 
cgit v1.2.1