make connector time out correctly

[scpubgit/Tak.git] / lib / Tak / JSONChannel.pm

diff --git a/lib/Tak/JSONChannel.pm b/lib/Tak/JSONChannel.pm
index c06054e..86a63e9 100644 (file)
--- a/lib/Tak/JSONChannel.pm
+++ b/lib/Tak/JSONChannel.pm
@@ -16,6 +16,8 @@ sub read_message {
     if (my $unpacked = $self->_unpack_line($line)) {
       return $unpacked;
     }
+  } else {
+    return [ 'close', 'channel' ];
   }
 }