summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/net_monitor4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 0cc59aed2..f5f2031df 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -192,7 +192,7 @@ sub connection() {
my ($sec, $min, $hour) = gmtime(time() - $c_time);
my $e = sprintf("%02d:%02d:%02d", $hour, $min, $sec);
$label_ct->set_label($e); 1 })
- } else { Glib::Source->remove($ct_tag) }
+ }
my $nb_point = 1;
$first = 1;
@@ -235,6 +235,8 @@ sub connection() {
N("Connection complete.") :
N("Connection failed.\nVerify your configuration in the Mandrakelinux Control Center."))
);
+ # remove the connection time timer if connection is down or failed
+ $isconnected or Glib::Source->remove($ct_tag);
my $delay = 1000;
# keep the message displayed longer if there is a problem.
if ($isconnected == $wasconnected) { $delay = 5000 }