summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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;