summaryrefslogtreecommitdiffstats
path: root/perl-install/network/tools.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-07-31 00:25:05 +0000
committerdamien <damien@mandriva.com>2001-07-31 00:25:05 +0000
commit10ad1d8908cc760fdeee1f22af69d1f1d8ff9e27 (patch)
tree29b7a1191744a843e95ea34317cc0875bde43bd4 /perl-install/network/tools.pm
parent84a49da0acdb4e741c09bae2de7e04fcea949869 (diff)
downloaddrakx-backup-do-not-use-10ad1d8908cc760fdeee1f22af69d1f1d8ff9e27.tar
drakx-backup-do-not-use-10ad1d8908cc760fdeee1f22af69d1f1d8ff9e27.tar.gz
drakx-backup-do-not-use-10ad1d8908cc760fdeee1f22af69d1f1d8ff9e27.tar.bz2
drakx-backup-do-not-use-10ad1d8908cc760fdeee1f22af69d1f1d8ff9e27.tar.xz
drakx-backup-do-not-use-10ad1d8908cc760fdeee1f22af69d1f1d8ff9e27.zip
corrected ask_connect_now
Diffstat (limited to 'perl-install/network/tools.pm')
-rw-r--r--perl-install/network/tools.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index c6443443e..f76782251 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -26,7 +26,8 @@ sub write_secret_backend {
}
sub ask_connect_now {
-# my ($cnx, $inter) = @_;
+ $::Wizard_no_previous=1;
+ #- FIXME : code the exception to be generated by ask_yesorno, to be able to remove the $::Wizard_no_previous=1;
my $a;
eval { $a = $in->ask_yesorno(_("Internet configuration"),
_("Do you want to try to connect to the Internet now?")
@@ -54,6 +55,7 @@ Try to reconfigure your connection.");
} else { $in->ask_warn('', $m ); }
$::isInstall and disconnect_backend();
}
+ undef $::Wizard_no_previous;
1;
}