From 176cb9b3a99b06cabfdd3b72e324548dfdab0b2b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 22 Jan 2002 12:07:32 +0000
Subject: don't ask security level in non-expert

---
 perl-install/install_steps_interactive.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index da7d576cd..527bed9f9 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1237,7 +1237,9 @@ try to force installation even if that destroys the first partition?"));
 sub miscellaneous {
     my ($o, $clicked) = @_;
 
-    any::choose_security_level($o, \$o->{security}, \$o->{libsafe}) or return;
+    if ($::expert) {
+	any::choose_security_level($o, \$o->{security}, \$o->{libsafe}) or return;
+    }
     install_steps::miscellaneous($o);
 }
 
-- 
cgit v1.2.1