From f36ee1baf6c33d6b327e4ad8d1b5dda7d0770d2e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 25 Nov 2004 12:52:41 +0000 Subject: use fs::get::device2part() --- perl-install/standalone/diskdrake | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'perl-install/standalone') 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}) { -- cgit v1.2.1