summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/steps_interactive.pm')
-rw-r--r--perl-install/install/steps_interactive.pm13
1 files changed, 9 insertions, 4 deletions
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index acf5fc2b4..f315507ef 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -997,6 +997,14 @@ try to force installation even if that destroys the first partition?"));
}
}
+sub check_security_level {
+ my ($o) = @_;
+ if ($o->{security} > 2 && find { $_->{fs_type} eq 'vfat' } @{$o->{fstab}}) {
+ $o->ask_okcancel('', N("In this security level, access to the files in the Windows partition is restricted to the administrator.")) or return 0;
+ }
+ return 1;
+}
+
sub miscellaneous {
my ($o, $_clicked) = @_;
@@ -1004,10 +1012,7 @@ sub miscellaneous {
require security::level;
security::level::level_choose($o, \$o->{security}, \$o->{libsafe}, \$o->{security_user});
- if ($o->{security} > 2 && find { $_->{fs_type} eq 'vfat' } @{$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;
- }
+ check_security_level($o) or goto &miscellaneous;
}
install::steps::miscellaneous($o);