summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps_interactive.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-08-07 15:00:25 +0000
committerThierry Vignaud <tv@mandriva.org>2007-08-07 15:00:25 +0000
commit84051ad3d801c920a9c7cb129aba07d2db7501bd (patch)
tree71030a7e41c5abf522d60e4aec9694f3e856b779 /perl-install/install/steps_interactive.pm
parentc29aadbbfac97a8e4e5827330a5e2987b7a63b4a (diff)
downloaddrakx-84051ad3d801c920a9c7cb129aba07d2db7501bd.tar
drakx-84051ad3d801c920a9c7cb129aba07d2db7501bd.tar.gz
drakx-84051ad3d801c920a9c7cb129aba07d2db7501bd.tar.bz2
drakx-84051ad3d801c920a9c7cb129aba07d2db7501bd.tar.xz
drakx-84051ad3d801c920a9c7cb129aba07d2db7501bd.zip
(summary) warn if the security level will prevent accessig windows partitions
Diffstat (limited to 'perl-install/install/steps_interactive.pm')
-rw-r--r--perl-install/install/steps_interactive.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index f315507ef..f01bfaf06 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -898,8 +898,11 @@ sub summary {
},
clicked => sub {
require security::level;
- security::level::level_choose($o, \$o->{security}, \$o->{libsafe}, \$o->{security_user})
- and install::any::set_security($o);
+ set_sec_level:
+ if (security::level::level_choose($o, \$o->{security}, \$o->{libsafe}, \$o->{security_user})) {
+ check_security_level($o) or goto set_sec_level;
+ install::any::set_security($o);
+ }
},
};