summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-11-26 09:39:43 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-11-26 09:39:43 +0000
commitff00a1677282eec0a1ec674875dfcc1fd63493c2 (patch)
tree96dba791528acee86083bac9594a63a29a330c25 /perl-install
parent498c449fb553b9bb551358ed10b882a218ad4750 (diff)
downloaddrakx-backup-do-not-use-ff00a1677282eec0a1ec674875dfcc1fd63493c2.tar
drakx-backup-do-not-use-ff00a1677282eec0a1ec674875dfcc1fd63493c2.tar.gz
drakx-backup-do-not-use-ff00a1677282eec0a1ec674875dfcc1fd63493c2.tar.bz2
drakx-backup-do-not-use-ff00a1677282eec0a1ec674875dfcc1fd63493c2.tar.xz
drakx-backup-do-not-use-ff00a1677282eec0a1ec674875dfcc1fd63493c2.zip
link beat detection: enable both net_monitor and drakconnect usage at
both time (not so usefull but cleaner)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/tools.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 544833fc7..2209fdcc8 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -161,10 +161,9 @@ sub detect_timezone() {
sub connected() { gethostbyname("mandrakesoft.com") ? 1 : 0 }
-my $kid_pipe;
# request a ref on a bg_connect and a ref on a scalar
sub connected_bg__raw {
- my ($kid, $status) = @_;
+ my ($kid_pipe, $status) = @_;
local $| = 1;
if (ref($kid_pipe) && ref($$kid_pipe)) {
my $fd = $$kid_pipe->{fd};
@@ -174,6 +173,7 @@ sub connected_bg__raw {
} else { $$kid_pipe = check_link_beat() }
}
+my $kid_pipe;
sub connected_bg {
my ($status) = @_;
connected_bg__raw(\$kid_pipe, $status);