summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/diskdrake10
1 files changed, 10 insertions, 0 deletions
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index 54dbd7f75..9026e67ae 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -89,6 +89,16 @@ if ($type eq 'hd') {
my ($raw_hd) = $para ?
first(grep { $para eq $_->{device} } @{$all_hds->{raw_hds}}) || die "unknown removable $para\n" :
$in->ask_from_listf('', '', \&diskdrake::interactive::format_raw_hd_info, $all_hds->{raw_hds}) or $in->exit(0);
+
+ if (!$raw_hd->{mntpoint}) {
+ my $mntpoint = detect_devices::suggest_mount_point($raw_hd);
+ $raw_hd->{mntpoint} ||= find { !fsedit::has_mntpoint($_, $all_hds) } map { "/mnt/$mntpoint$_" } '', 2 .. 10;
+
+ my $use_supermount = 1;
+ require security::level;
+ require lang;
+ fs::set_default_options($raw_hd, 1, $use_supermount, security::level::get(), lang::fs_options(lang::read()));
+ }
diskdrake::removable::main($in, $all_hds, $raw_hd);
} elsif ($type eq 'dav') {
($::isEmbedded, my $isEmbedded) = (0, $::isEmbedded);