summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-09-05 09:25:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-09-05 09:25:01 +0000
commit39090f72ad4c4eb25f99e457ebbb78a765d8acc1 (patch)
treec262b59a3c53e75566700520c30379356ecbe318 /perl-install/standalone
parent52e73a5e6467ad49775c7b8915826f6d5828d146 (diff)
downloaddrakx-backup-do-not-use-39090f72ad4c4eb25f99e457ebbb78a765d8acc1.tar
drakx-backup-do-not-use-39090f72ad4c4eb25f99e457ebbb78a765d8acc1.tar.gz
drakx-backup-do-not-use-39090f72ad4c4eb25f99e457ebbb78a765d8acc1.tar.bz2
drakx-backup-do-not-use-39090f72ad4c4eb25f99e457ebbb78a765d8acc1.tar.xz
drakx-backup-do-not-use-39090f72ad4c4eb25f99e457ebbb78a765d8acc1.zip
handle required package(s) not installed correctly (bugzilla #18180)
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakauth2
-rwxr-xr-xperl-install/standalone/finish-install2
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/drakauth b/perl-install/standalone/drakauth
index 0a7a4a917..779976f52 100755
--- a/perl-install/standalone/drakauth
+++ b/perl-install/standalone/drakauth
@@ -29,7 +29,7 @@ $in->ask_from(N("Authentication"), authentication::kind2description(@kinds),
authentication::ask_parameters($in, $net, $authentication, $kind) or goto main;
eval {
- authentication::set($in, $net, $authentication);
+ authentication::set($in, $net, $authentication) or goto main;
network::network::write_network_conf($net); #- for NISDOMAIN
};
if (my $err = $@) {
diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install
index 215756a7e..e938416b7 100755
--- a/perl-install/standalone/finish-install
+++ b/perl-install/standalone/finish-install
@@ -42,7 +42,7 @@ sub ask_authentication() {
authentication::set_root_passwd($superuser, $authentication);
eval {
- authentication::set($in, $net, $authentication);
+ authentication::set($in, $net, $authentication) or goto &ask_authentication;
network::network::write_network_conf($net);
};
if (my $err = $@) {