diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-02-17 22:40:01 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-02-17 23:26:38 +0100 |
| commit | e12526e5d33fd42bceb52607da888b5ea27698d7 (patch) | |
| tree | feaed3c92183a7523d56eaf31ac3390196c2c4d6 /perl-install/install/commands.pm | |
| parent | 15c48bc5666545d6ed5ea14fc3a5ef3f27d6341c (diff) | |
| download | drakx-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)
Diffstat (limited to 'perl-install/install/commands.pm')
| -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"; |