From 28b4b03213440a9951d68da6ef1f5c17a327e002 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 10 Aug 2017 10:52:18 +0100
Subject: [PATCH] extend coverage of disconnected flag

---
 perl/Msg.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/perl/Msg.pm b/perl/Msg.pm
index ba0e6b8e..bad84a2c 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -278,6 +278,9 @@ sub _send_stuff
 	my $conn = shift;
 	my $rq = $conn->{outqueue};
     my $sock = $conn->{sock};
+	return unless defined $sock;
+	return if $conn->{disconnecting};
+	
 	while (@$rq) {
 		my $data = shift @$rq;
 		my $lth = length $data;
@@ -377,6 +380,7 @@ sub _rcv {                     # Complement to _send
 	my $msg = shift;
     my $sock = $conn->{sock};
     return unless defined($sock);
+	return if $conn->{disconnecting};
 
 	$total_in += length $msg;
 
-- 
2.34.1