diff options
| author | damien <damien@mandriva.com> | 2001-07-30 17:39:58 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-07-30 17:39:58 +0000 |
| commit | 110e3deda634adc5876da17c0fbfa451ad2c652e (patch) | |
| tree | ca407030e0a1c5bcd03fb68fcd9b2dec9bd25415 /perl-install/network/tools.pm | |
| parent | cb2b34494ca1c81ddfd11a9636210a8ffa8016a6 (diff) | |
| download | drakx-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.pm | 11 |
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); |