From 39090f72ad4c4eb25f99e457ebbb78a765d8acc1 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 5 Sep 2005 09:25:01 +0000 Subject: handle required package(s) not installed correctly (bugzilla #18180) --- perl-install/standalone/drakauth | 2 +- perl-install/standalone/finish-install | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone') 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 = $@) { -- cgit v1.2.1