summaryrefslogtreecommitdiffstats
path: root/perl-install/network/tools.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-07-30 17:39:58 +0000
committerdamien <damien@mandriva.com>2001-07-30 17:39:58 +0000
commit110e3deda634adc5876da17c0fbfa451ad2c652e (patch)
treeca407030e0a1c5bcd03fb68fcd9b2dec9bd25415 /perl-install/network/tools.pm
parentcb2b34494ca1c81ddfd11a9636210a8ffa8016a6 (diff)
downloaddrakx-110e3deda634adc5876da17c0fbfa451ad2c652e.tar
drakx-110e3deda634adc5876da17c0fbfa451ad2c652e.tar.gz
drakx-110e3deda634adc5876da17c0fbfa451ad2c652e.tar.bz2
drakx-110e3deda634adc5876da17c0fbfa451ad2c652e.tar.xz
drakx-110e3deda634adc5876da17c0fbfa451ad2c652e.zip
corrected ask_connect_now
Diffstat (limited to 'perl-install/network/tools.pm')
-rw-r--r--perl-install/network/tools.pm11
1 files changed, 7 insertions, 4 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 851569e6d..c6443443e 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -26,10 +26,13 @@ sub write_secret_backend {
}
sub ask_connect_now {
- my ($cnx, $inter) = @_;
- if ($in->ask_yesorno(_("Internet configuration"),
- _("Do you want to try to connect to the Internet now?")
- )) {
+# my ($cnx, $inter) = @_;
+ my $a;
+ eval { $a = $in->ask_yesorno(_("Internet configuration"),
+ _("Do you want to try to connect to the Internet now?")
+ ) };
+ return 0 if $@;
+ if ($a) {
my $up;
{
my $w = $in->wait_message('', _("Testing your connection..."), 1);