Control: tag -1 + patch
Hi,
Axel Beckert wrote:
> since Perl 5.20, apt-show-versions throws the following Perl warnings
> upon each invocation:
>
> $ apt-show-versions > /dev/null
> keys on reference is experimental at /usr/bin/apt-show-versions line 264.
> keys on reference is experimental at /usr/bin/apt-show-versions line 359.
> $
Here's a patch for that:
diff -Nru apt-show-versions-0.22.3/apt-show-versions
apt-show-versions-0.22.3+758287/apt-show-versions
--- apt-show-versions-0.22.3/apt-show-versions 2013-09-30 13:52:12.000000000
+0200
+++ apt-show-versions-0.22.3+758287/apt-show-versions 2014-08-19
23:47:29.000000000 +0200
@@ -258,7 +258,7 @@
or $cache_file_corrupt) {
my ($href, $release) = &parse_file ($_);
foreach my $pkg (keys %$href) {
- foreach my $arch (keys $href->{$pkg}) {
+ foreach my $arch (keys %{$href->{$pkg}}) {
$apackages->{$pkg}{$arch}{$release} = $href->{$pkg}{$arch};
}
}
@@ -353,7 +353,7 @@
printf("%s not installed (not available)\n", $pkgname);
}
} else {
- foreach my $arch ($archname or sort keys $pkgs->{$pkgname}) {
+ foreach my $arch ($archname or sort keys %{$pkgs->{$pkgname}}) {
print_package_internal($pkgname, $arch);
}
}
Regards, Axel
--
,''`. | Axel Beckert <[email protected]>, http://people.debian.org/~abe/
: :' : | Debian Developer, ftp.ch.debian.org Admin
`. `' | 1024D: F067 EA27 26B9 C3FC 1486 202E C09E 1D89 9593 0EDE
`- | 4096R: 2517 B724 C5F6 CA99 5329 6E61 2FF9 CD59 6126 16B5
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
