diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/commands.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install/commands.pm b/perl-install/install/commands.pm index 8bbea866f..9df55cbb7 100644 --- a/perl-install/install/commands.pm +++ b/perl-install/install/commands.pm @@ -401,8 +401,10 @@ sub bug { my $in = interactive::stdio->new; require install::any; + my @devs = install::any::removable_media__early_in_install(); + $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"; |