summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-02-17 22:40:01 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2015-02-17 23:26:38 +0100
commite12526e5d33fd42bceb52607da888b5ea27698d7 (patch)
treefeaed3c92183a7523d56eaf31ac3390196c2c4d6
parent15c48bc5666545d6ed5ea14fc3a5ef3f27d6341c (diff)
downloaddrakx-e12526e5d33fd42bceb52607da888b5ea27698d7.tar
drakx-e12526e5d33fd42bceb52607da888b5ea27698d7.tar.gz
drakx-e12526e5d33fd42bceb52607da888b5ea27698d7.tar.bz2
drakx-e12526e5d33fd42bceb52607da888b5ea27698d7.tar.xz
drakx-e12526e5d33fd42bceb52607da888b5ea27698d7.zip
(bug) use a variable
(neede for next commit)
-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";