From e12526e5d33fd42bceb52607da888b5ea27698d7 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 17 Feb 2015 22:40:01 +0100
Subject: (bug) use a variable

(neede for next commit)
---
 perl-install/install/commands.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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";
-- 
cgit v1.2.1