Browse Source

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

tags/debian/3.22
Joey Hess 6 years ago
parent
commit
220b477746
2 changed files with 9 additions and 1 deletions
  1. +7
    -0
      debian/changelog
  2. +2
    -1
      tasksel.pl

+ 7
- 0
debian/changelog View File

@@ -1,3 +1,10 @@
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 ]


+ 2
- 1
tasksel.pl View File

@@ -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' ||


Loading…
Cancel
Save