(neede for next commit)

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";