summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/diskdrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-25 12:52:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-25 12:52:41 +0000
commitf36ee1baf6c33d6b327e4ad8d1b5dda7d0770d2e (patch)
tree22d1ea5eb4e163d53bede3be102ef94a0ede1208 /perl-install/standalone/diskdrake
parent16a626a8e859ec223ea53402fb8605cb8af13ee8 (diff)
downloaddrakx-backup-do-not-use-f36ee1baf6c33d6b327e4ad8d1b5dda7d0770d2e.tar
drakx-backup-do-not-use-f36ee1baf6c33d6b327e4ad8d1b5dda7d0770d2e.tar.gz
drakx-backup-do-not-use-f36ee1baf6c33d6b327e4ad8d1b5dda7d0770d2e.tar.bz2
drakx-backup-do-not-use-f36ee1baf6c33d6b327e4ad8d1b5dda7d0770d2e.tar.xz
drakx-backup-do-not-use-f36ee1baf6c33d6b327e4ad8d1b5dda7d0770d2e.zip
use fs::get::device2part()
Diffstat (limited to 'perl-install/standalone/diskdrake')
-rwxr-xr-xperl-install/standalone/diskdrake3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index fd4011966..8d9854a9f 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -94,9 +94,8 @@ if ($type eq 'list-hd') {
exec("drakhelp --id diskdrake") unless fork() });
} elsif ($type eq 'removable') {
require diskdrake::removable;
- $para =~ s|^/dev/||;
my ($raw_hd) = $para ?
- first(grep { $para eq $_->{device} } @{$all_hds->{raw_hds}}) || die "unknown removable $para\n" :
+ fs::get::device2part($para, $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}) {