summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-07-16 10:58:42 +0000
committerOlivier Blin <oblin@mandriva.org>2004-07-16 10:58:42 +0000
commit26069ec4f6b6d079a7ee289dc73310ef977f307f (patch)
treee5aeb6701d30bed1b8b84eac6826bd6c656ab79f /perl-install
parent89df88db01f24d8a31c487e6feb723bd2f58e4a8 (diff)
downloaddrakx-26069ec4f6b6d079a7ee289dc73310ef977f307f.tar
drakx-26069ec4f6b6d079a7ee289dc73310ef977f307f.tar.gz
drakx-26069ec4f6b6d079a7ee289dc73310ef977f307f.tar.bz2
drakx-26069ec4f6b6d079a7ee289dc73310ef977f307f.tar.xz
drakx-26069ec4f6b6d079a7ee289dc73310ef977f307f.zip
use a tcp ping in check_link_beat if not root
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/tools.pm2
1 files changed, 1 insertions, 1 deletions
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;
});
}