In particular, dereference hashes passed to keys function to avoid the following warnings: keys on reference is experimental at ./update-dockapps.pl line 91. keys on reference is experimental at ./update-dockapps.pl line 113.
These warnings appeared after upgrading to Perl 5.20. --- update-dockapps.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/update-dockapps.pl b/update-dockapps.pl index 41fcb31..015e166 100755 --- a/update-dockapps.pl +++ b/update-dockapps.pl @@ -88,7 +88,7 @@ foreach my $dockapp (keys %dockapps) { if (grep {$_ eq $dockapp} keys %alts) { next; } - my $latest_version = (sort by_version keys $dockapps{$dockapp})[-1]; + my $latest_version = (sort by_version keys %{$dockapps{$dockapp}})[-1]; if ($r->run("diff", "$dockapp-$latest_version", "HEAD", "--", $dockapp)) { my $commit = $r->run("log", "-1", "--pretty=format:%H", "--", $dockapp); @@ -110,7 +110,7 @@ foreach my $dockapp (keys %dockapps) { foreach my $dockapp (keys %dockapps) { my $versions = ""; - foreach my $version (reverse sort by_version keys $dockapps{$dockapp}) { + foreach my $version (reverse sort by_version keys %{$dockapps{$dockapp}}) { $versions .= "version-$version = " . $dockapps{$dockapp}{$version} . "\n"; } -- 2.1.0 -- To unsubscribe, send mail to wmaker-dev-unsubscr...@lists.windowmaker.org.