diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-07-16 10:58:42 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-07-16 10:58:42 +0000 |
| commit | 26069ec4f6b6d079a7ee289dc73310ef977f307f (patch) | |
| tree | e5aeb6701d30bed1b8b84eac6826bd6c656ab79f /perl-install | |
| parent | 89df88db01f24d8a31c487e6feb723bd2f58e4a8 (diff) | |
| download | drakx-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.pm | 2 |
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; }); } |