diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-23 21:35:58 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-23 21:35:58 +0000 |
| commit | ac98fd5fd890ed5156ec74196a81a0cec5757a34 (patch) | |
| tree | dac7802033bd6917c2828d565cab382b5bc90a27 /perl-install/network | |
| parent | 16e8cd166aec76a67b7643f7ce4d0c676356b6e7 (diff) | |
| download | drakx-ac98fd5fd890ed5156ec74196a81a0cec5757a34.tar drakx-ac98fd5fd890ed5156ec74196a81a0cec5757a34.tar.gz drakx-ac98fd5fd890ed5156ec74196a81a0cec5757a34.tar.bz2 drakx-ac98fd5fd890ed5156ec74196a81a0cec5757a34.tar.xz drakx-ac98fd5fd890ed5156ec74196a81a0cec5757a34.zip | |
(connected2) rename it as check_link_beat() to better reflect what he does
Diffstat (limited to 'perl-install/network')
| -rw-r--r-- | perl-install/network/tools.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index 53f9b1820..112d56140 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -152,7 +152,7 @@ sub connected_bg__raw { fcntl($fd, c::F_SETFL(), c::O_NONBLOCK()) or die "can't fcntl F_SETFL: $!"; my $a = <$fd>; $$status = $a if defined $a; - } else { $$kid_pipe = connected2() } + } else { $$kid_pipe = check_link_beat() } } sub connected_bg { @@ -182,7 +182,7 @@ sub test_connected { } elsif ($cmd == 1) { if ($current_connection_status != -2) { $current_connection_status = -2; - $kid_pipe_connect = connected2(); + $kid_pipe_connect = check_link_beat(); } } elsif ($cmd == 2) { if (defined($kid_pipe_connect)) { @@ -193,7 +193,7 @@ sub test_connected { return $current_connection_status; } -sub connected2() { +sub check_link_beat() { bg_command->new(sub { require Net::Ping; print Net::Ping->new("icmp")->ping("mandrakesoft.com") ? 1 : 0; |