(summary) warn if the security level will prevent accessig windows partitions

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);
+         }
 	},
     };