diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-25 12:52:41 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-25 12:52:41 +0000 |
| commit | f36ee1baf6c33d6b327e4ad8d1b5dda7d0770d2e (patch) | |
| tree | 22d1ea5eb4e163d53bede3be102ef94a0ede1208 /perl-install/standalone | |
| parent | 16a626a8e859ec223ea53402fb8605cb8af13ee8 (diff) | |
| download | drakx-f36ee1baf6c33d6b327e4ad8d1b5dda7d0770d2e.tar drakx-f36ee1baf6c33d6b327e4ad8d1b5dda7d0770d2e.tar.gz drakx-f36ee1baf6c33d6b327e4ad8d1b5dda7d0770d2e.tar.bz2 drakx-f36ee1baf6c33d6b327e4ad8d1b5dda7d0770d2e.tar.xz drakx-f36ee1baf6c33d6b327e4ad8d1b5dda7d0770d2e.zip | |
use fs::get::device2part()
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/diskdrake | 3 |
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}) { |