summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-09-20 12:02:33 +0000
committerdamien <damien@mandriva.com>2001-09-20 12:02:33 +0000
commitee764e36e708f0868dd8c34e04b0834149f10923 (patch)
tree08264c5f18edee365c232657f39862adffa441f8 /perl-install
parent47291e0afee99ec3186a2e9f1d4f94e9ec800fcf (diff)
downloaddrakx-ee764e36e708f0868dd8c34e04b0834149f10923.tar
drakx-ee764e36e708f0868dd8c34e04b0834149f10923.tar.gz
drakx-ee764e36e708f0868dd8c34e04b0834149f10923.tar.bz2
drakx-ee764e36e708f0868dd8c34e04b0834149f10923.tar.xz
drakx-ee764e36e708f0868dd8c34e04b0834149f10923.zip
less gethostbyname
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/net_monitor5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index bc37802c5..693875436 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -372,11 +372,12 @@ sub update {
}
@interfaces = @intfs;
my $netc={};
- if(connected() == !$isconnected) {
+ my $connected_now = connected();
+ if($connected_now == !$isconnected) {
$isconnected = $isconnected ? 0 : 1;
$label_c->set($isconnected ? _("Disconnect") : _("Connect"));
$statusbar->pop(1);
- $statusbar->push(1, connected() ? _("Connected") : _("Not connected"));
+ $statusbar->push(1, $connected_now ? _("Connected") : _("Not connected"));
$isconnected ? $pix_c->set($pix_c_map, $pix_c_mask) : $pix_c->set($pix_d_map, $pix_d_mask);
}
if (!(-e $connect_file && -e $disconnect_file)) {