Commit 220b4777 authored by Joey Hess's avatar Joey Hess

Avoid using each() on a hash ref, which causes perl to output a warning that it is experimental.

parent 0a91c2a6
tasksel (3.22) UNRELEASED; urgency=medium
* Avoid using each() on a hash ref, which causes perl to output a
warning that it is experimental.
-- Joey Hess <joeyh@debian.org> Sat, 06 Sep 2014 14:46:23 -0400
tasksel (3.21) unstable; urgency=low
[ Changwoo Ryu ]
......
......@@ -221,7 +221,8 @@ sub task_packages {
# only key
}
elsif ($task->{packages} eq 'standard') {
while (my ($package, $info) = each(info_avail())) {
my %info_avail=%{info_avail()};
while (my ($package, $info) = each(%info_avail)) {
my ($priority, $section) = ($info->{priority}, $info->{section});
if (($priority eq 'required' ||
$priority eq 'important' ||
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment