summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draknet
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-04-14 18:22:38 +0000
committerdamien <damien@mandriva.com>2001-04-14 18:22:38 +0000
commit55cb7a7d1aa99c65cc1c9bf5604f6b2b5cbeb88f (patch)
treebd01e59f58810d5115bf278b73a025094f1296cc /perl-install/standalone/draknet
parent8c2d11a405922f712021f97e3b1f7e9dbdaaea0d (diff)
downloaddrakx-55cb7a7d1aa99c65cc1c9bf5604f6b2b5cbeb88f.tar
drakx-55cb7a7d1aa99c65cc1c9bf5604f6b2b5cbeb88f.tar.gz
drakx-55cb7a7d1aa99c65cc1c9bf5604f6b2b5cbeb88f.tar.bz2
drakx-55cb7a7d1aa99c65cc1c9bf5604f6b2b5cbeb88f.tar.xz
drakx-55cb7a7d1aa99c65cc1c9bf5604f6b2b5cbeb88f.zip
wait 10 sec, instead of 7
Diffstat (limited to 'perl-install/standalone/draknet')
-rwxr-xr-xperl-install/standalone/draknet4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet
index 823edf584..99a2a8f9a 100755
--- a/perl-install/standalone/draknet
+++ b/perl-install/standalone/draknet
@@ -191,7 +191,7 @@ $button2->signal_connect (clicked => sub {
$l->set(_("Starting your connection..."));
Gtk->main_iteration while Gtk->events_pending;
netconnect::connect_backend($prefix);
- sleep 5;
+ foreach (1..10) { Gtk->main_iteration while Gtk->events_pending; sleep 1; }
my $up=netconnect::connected($prefix, $netc);
$l->set($up ? _("The system is now connected to Internet.") : _("The system doesn't seem to be connected to internet.
Try to reconfigure your connection."));
@@ -199,7 +199,7 @@ Try to reconfigure your connection."));
$l->set(_("Closing your connection..."));
Gtk->main_iteration while Gtk->events_pending;
netconnect::disconnect_backend($prefix);
- sleep 5;
+ foreach (1..10) { Gtk->main_iteration while Gtk->events_pending; sleep 1; }
my $up=netconnect::connected($prefix, $netc);
$l->set($up ? _("The connection is not closed.
Try to do it manually by running