From 725b6c7903c80018c39368e2fa72dfd92c2cc85a Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 15 Mar 2012 17:35:02 -0500
Subject: close sockets before removing them, just in case

this should happen automatically when we clear the socket, but maybe
we're leaking sockets somewhere? shrug
---
 lib/App/Termcast.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/App/Termcast.pm b/lib/App/Termcast.pm
index 091210e..2994707 100644
--- a/lib/App/Termcast.pm
+++ b/lib/App/Termcast.pm
@@ -232,6 +232,7 @@ sub _build_socket {
 before clear_socket => sub {
     my $self = shift;
     Carp::carp("Lost connection to server ($!), reconnecting...");
+    $self->socket->close;
     ReadMode(0, $self->input)
         if $self->_has_term && $self->_term->_raw_mode;
 };
-- 
cgit v1.2.3