summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-11-23 21:35:58 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-11-23 21:35:58 +0000
commitac98fd5fd890ed5156ec74196a81a0cec5757a34 (patch)
treedac7802033bd6917c2828d565cab382b5bc90a27 /perl-install/network
parent16e8cd166aec76a67b7643f7ce4d0c676356b6e7 (diff)
downloaddrakx-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.pm6
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;