summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake/removable.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/diskdrake/removable.pm')
-rw-r--r--perl-install/diskdrake/removable.pm9
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/diskdrake/removable.pm b/perl-install/diskdrake/removable.pm
index d2c7ad32c..f3b73ed4b 100644
--- a/perl-install/diskdrake/removable.pm
+++ b/perl-install/diskdrake/removable.pm
@@ -1,10 +1,9 @@
-package diskdrake::removable; # $Id$
+package diskdrake::removable;
use diagnostics;
use strict;
use diskdrake::interactive;
use common;
-use fsedit;
use fs;
sub main {
@@ -38,15 +37,15 @@ sub options {
}
sub mount_point {
my ($in, $raw_hd, $all_hds) = @_;
- diskdrake::interactive::Mount_point_raw_hd($in, $raw_hd, $all_hds, "/mnt/$raw_hd->{device}");
+ diskdrake::interactive::Mount_point_raw_hd($in, $raw_hd, $all_hds, "/media/$raw_hd->{device}");
}
sub type {
my ($in, $raw_hd) = @_;
- my @fs = ('auto', fs::auto_fs());
+ my @fs = ('auto', fs::type::guessed_by_mount());
my $fs_type = $raw_hd->{fs_type};
$in->ask_from(N("Change type"),
N("Which filesystem do you want?"),
- [ { label => N("Type"), val => \$fs_type, list => [@fs], not_edit => !$::expert } ]) or return;
+ [ { label => N("Type"), val => \$fs_type, list => [@fs] } ]) or return;
$raw_hd->{fs_type} = $fs_type;
}