From 456fd0705c79b34d9e4050486d1fef2a2aeaccee Mon Sep 17 00:00:00 2001
From: Pier Luigi Fiorini <pierluigi.fiorini@gmail.com>
Date: Mon, 3 Oct 2016 07:42:15 +0200
Subject: [PATCH 13/21] releng: Fix Perl errors

---
 releng/create_changelog.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/releng/create_changelog.pl b/releng/create_changelog.pl
index 19a07e2..6bf44eb 100755
--- a/releng/create_changelog.pl
+++ b/releng/create_changelog.pl
@@ -127,7 +127,7 @@ sub collect_entries {
             }
             my $array = \$$$logentry{$subentry};
             $$array = [] unless defined($$array);
-            push $$array, { %entry };
+            push @{ $$array }, { %entry };
         }
     }
     close FOREACH or die("git submodule foreach died: $!");
@@ -171,7 +171,7 @@ for my $toplevel (sort keys %log) {
     }
 
     # Print two-level entries now
-    foreach my $sublevel (sort keys $$value) {
+    foreach my $sublevel (sort keys %{ $$value }) {
         next if $sublevel eq "0";
         print "\n - $sublevel:\n";
         $entry = \$$$value{$sublevel};
-- 
2.10.2