summaryrefslogtreecommitdiffstats
path: root/perl-install/install/commands.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/commands.pm')
-rw-r--r--perl-install/install/commands.pm4
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";