fix spurious mojo close error on client

$sock->close_gracefully no longer exists, so on disconnection
just undef $sock instead.

diff --git a/perl/Msg.pm b/perl/Msg.pm
index cd5dd051b8c384f0011fdd496335c2638d9f9570..1f0da5f44cbf0d4b6c0ccff9e0f15753303b0f8c 100644 (file)
--- 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 c37f720912dbd42e89ee7e28a8596c144c5ff82b..fa8563f09cb3adecafce303333be7f45b8501665 100644 (file)
--- 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;