From 0ba8b8bf6f01f405661aef65a070a8557e98dd3b Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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.43.0