From f41d3650292ee4d521b8588daa202bdfcee5cc6c Mon Sep 17 00:00:00 2001
From: Simon Tatham <anakin@pobox.com>
Date: Wed, 11 Apr 2018 19:58:14 +0100
Subject: [PATCH] logparse.pl: fix a Perl warning.

Used the wrong kind of brackets when initialising the actual hash (as
opposed to hash ref) %disc_reasons. Not sure how I didn't notice the
warning in yesterday's testing!
---
 contrib/logparse.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/contrib/logparse.pl b/contrib/logparse.pl
index 4ebde503..3aa721d5 100755
--- a/contrib/logparse.pl
+++ b/contrib/logparse.pl
@@ -545,7 +545,7 @@ my %packets = (
     },
 );
 
-our %disc_reasons = {
+our %disc_reasons = (
     1 => "SSH_DISCONNECT_HOST_NOT_ALLOWED_TO_CONNECT",
     2 => "SSH_DISCONNECT_PROTOCOL_ERROR",
     3 => "SSH_DISCONNECT_KEY_EXCHANGE_FAILED",
@@ -561,7 +561,7 @@ our %disc_reasons = {
     13 => "SSH_DISCONNECT_AUTH_CANCELLED_BY_USER",
     14 => "SSH_DISCONNECT_NO_MORE_AUTH_METHODS_AVAILABLE",
     15 => "SSH_DISCONNECT_ILLEGAL_USER_NAME",
-};
+);
 
 my %verbose_packet_dump_functions = (
     'SSH2_MSG_KEXINIT' => sub {