From d351d900cf9e3559da9bf31cd34e735c3aff0692 Mon Sep 17 00:00:00 2001
From: Nicolas Vigier <boklm@mageia.org>
Date: Wed, 12 Jun 2013 22:16:45 +0000
Subject: dereference hash for 'keys'

---
 mkadvisories | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mkadvisories b/mkadvisories
index 5b5dbf8..1c957cb 100755
--- a/mkadvisories
+++ b/mkadvisories
@@ -75,7 +75,7 @@ sub publish_advisories {
 
 sub sort_advisories {
     my ($advdb) = @_;
-    foreach my $adv (keys $advdb->{advisories}) {
+    foreach my $adv (keys %{$advdb->{advisories}}) {
         push @{$advdb->{by_type}{$advdb->{advisories}{$adv}{type}}}, $adv;
         foreach my $cve (@{$advdb->{advisories}{$adv}{CVE}}) {
             push @{$advdb->{by_cve}{$cve}}, $adv;
-- 
cgit v1.2.1