From 897140cfc593b9697dfa383eacaf14affe44edf2 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 27 Jan 2002 20:56:29 +0000 Subject: handle --removable *and* --removable= --- perl-install/standalone/diskdrake | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/standalone/diskdrake') diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake index 5578abd1f..260244cf5 100755 --- a/perl-install/standalone/diskdrake +++ b/perl-install/standalone/diskdrake @@ -58,8 +58,6 @@ foreach (@types) { } %options and die "usage: diskdrake [--expert] [--testing] [--{" . join(",", @types) . "}]\n"; -$type ne 'removable' || $para or die "usage: diskdrake --removable=\n"; - if ($>) { $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}"; } @@ -104,7 +102,9 @@ if ($type eq 'hd') { } elsif ($type eq 'removable') { require diskdrake::removable; $para =~ s|^/dev/||; - my ($raw_hd) = grep { $para eq $_->{device} } @{$all_hds->{raw_hds}} or die "unknown removable $para\n"; + 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); diskdrake::removable::main($in, $all_hds, $raw_hd); } else { $in->ask_warn('', "Sorry only a gtk frontend is available") if !$in->isa('interactive_gtk'); -- cgit v1.2.1