diff options
Diffstat (limited to 'perl-install')
| -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; |