diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-26 09:39:43 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-26 09:39:43 +0000 |
| commit | ff00a1677282eec0a1ec674875dfcc1fd63493c2 (patch) | |
| tree | 96dba791528acee86083bac9594a63a29a330c25 /perl-install | |
| parent | 498c449fb553b9bb551358ed10b882a218ad4750 (diff) | |
| download | drakx-ff00a1677282eec0a1ec674875dfcc1fd63493c2.tar drakx-ff00a1677282eec0a1ec674875dfcc1fd63493c2.tar.gz drakx-ff00a1677282eec0a1ec674875dfcc1fd63493c2.tar.bz2 drakx-ff00a1677282eec0a1ec674875dfcc1fd63493c2.tar.xz drakx-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.pm | 4 |
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); |