diff options
Diffstat (limited to 'perl-install/install/commands.pm')
| -rw-r--r-- | perl-install/install/commands.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/install/commands.pm b/perl-install/install/commands.pm index 3854876a6..79f49b980 100644 --- a/perl-install/install/commands.pm +++ b/perl-install/install/commands.pm @@ -1,4 +1,4 @@ -package install::commands; # $Id: commands.pm 263616 2009-11-19 18:11:25Z blino $ +package install::commands; #-######################################################################## #- This file implement many common shell commands: @@ -401,8 +401,11 @@ sub bug { my $in = interactive::stdio->new; require install::any; + my @devs = install::any::removable_media__early_in_install(); + @devs or die "You need to plug a removable medium (USB key, floppy, ...)\n"; + $part = $in->ask_from_listf('', "Which device?", \&partition_table::description, - [ install::any::removable_media__early_in_install() ]) or return; + \@devs) or return; } warn "putting file report.bug on $part->{device}\n"; |