add a warning when choosing security level > 2 and having a windows partition

(since in that case we won't have umask=0) (bugzilla #4731)

1 files changed, 5 insertions, 0 deletions

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 37f7cf09e..e94058163 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1246,6 +1246,11 @@ sub miscellaneous {
     if ($o->{meta_class} ne 'desktop' && !$o->{isUpgrade}) {
 	require security::level;
 	security::level::level_choose($o, \$o->{security}, \$o->{libsafe}, \$o->{security_user});
+
+	if ($o->{security} > 2 && find { isFat($_) } @{$o->{fstab}}) {
+	    $o->ask_okcancel('', N("In this security level, access to the files in the Windows partition is restricted to the administrator."))
+	      or goto &miscellaneous;
+	}
     }
 
     install_steps::miscellaneous($o);