summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-09-17 10:17:17 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-09-17 10:17:17 +0000
commit7287e78fddbbfcb76ef66edfbf16c7c64d193911 (patch)
treef0a29a711623adda1eea29dcc9b42257a6f20d64 /perl-install
parent900244d9166e45e01601011fc220016d2afadbdf (diff)
downloaddrakx-7287e78fddbbfcb76ef66edfbf16c7c64d193911.tar
drakx-7287e78fddbbfcb76ef66edfbf16c7c64d193911.tar.gz
drakx-7287e78fddbbfcb76ef66edfbf16c7c64d193911.tar.bz2
drakx-7287e78fddbbfcb76ef66edfbf16c7c64d193911.tar.xz
drakx-7287e78fddbbfcb76ef66edfbf16c7c64d193911.zip
display errors occuring in any::set_authentication()
(esp. for "Can't use broadcast with no NIS domain")
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakauth7
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/standalone/drakauth b/perl-install/standalone/drakauth
index 74f88cdb2..939b57c0c 100755
--- a/perl-install/standalone/drakauth
+++ b/perl-install/standalone/drakauth
@@ -28,6 +28,11 @@ $in->ask_from('', '',
any::ask_authentification_parameters($in, $netc, $authentication, $authentication_kind) or goto main;
-any::set_authentication($in, $netc, $authentication, sub { my ($f) = @_; $f->() });
+eval { any::set_authentication($in, $netc, $authentication, sub { my ($f) = @_; $f->() }) };
+if (my $err = $@) {
+ $in->ask_warn(N("Error"), formatError($err));
+ goto main;
+}
+
$in->exit;