From 55cb7a7d1aa99c65cc1c9bf5604f6b2b5cbeb88f Mon Sep 17 00:00:00 2001 From: damien Date: Sat, 14 Apr 2001 18:22:38 +0000 Subject: wait 10 sec, instead of 7 --- perl-install/standalone/draknet | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/draknet') 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 -- cgit v1.2.1