From 0ba8b8bf6f01f405661aef65a070a8557e98dd3b Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 17 Jun 2014 16:57:56 +0100
Subject: [PATCH] fix spurious mojo close error on client

$sock->close_gracefully no longer exists, so on disconnection
just undef $sock instead.
---
 perl/Msg.pm     | 2 +-
 perl/Version.pm | 5 ++---
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/perl/Msg.pm b/perl/Msg.pm
index cd5dd051..1f0da5f4 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -266,7 +266,7 @@ sub disconnect
 	}
 
 	if (defined($sock)) {
-		$sock->close;
+		undef $sock;
 	}
 	
 	unless ($main::is_win) {
diff --git a/perl/Version.pm b/perl/Version.pm
index c37f7209..fa8563f0 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -10,8 +10,7 @@ package main;
 use vars qw($version $build $gitversion);
 
 $version = '1.57';
-$build = '4';
-$subversion = '0';
-$gitversion = '316a74d';
+$build = '22';
+$gitversion = '511d83a';
 
 1;
-- 
2.34.1