From ac98fd5fd890ed5156ec74196a81a0cec5757a34 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Sun, 23 Nov 2003 21:35:58 +0000
Subject: (connected2) rename it as check_link_beat() to better reflect what he
 does

---
 perl-install/network/tools.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/network/tools.pm')

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;
-- 
cgit v1.2.1