summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r--perl-install/fs.pm12
1 files changed, 10 insertions, 2 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 21068db05..ab6c2a230 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -312,6 +312,10 @@ sub set_default_options {
$is_auto = 0;
}
+ if ($part->{media_type} eq 'cdrom') {
+ $options->{ro} = 1;
+ }
+
if ($part->{media_type} eq 'fd') {
# slow device so don't loose time, write now!
$options->{sync} = 1;
@@ -324,9 +328,13 @@ sub set_default_options {
});
}
if (isFat($part) || $is_auto) {
+
+ put_in_hash($options, {
+ user => 1, exec => 1,
+ }) if !exists $part->{rootDevice}; # partition means no removable media
+
put_in_hash($options, {
- user => 1, 'umask=0' => $security < 3, exec => 1,
- 'iocharset=' => $iocharset, 'codepage=' => $codepage,
+ 'umask=0' => $security < 3, 'iocharset=' => $iocharset, 'codepage=' => $codepage,
});
}
if (isThisFs('ntfs', $part) || $is_auto) {