From a3dec08e5f3ea86af0d29e8ab035497c4586c2e4 Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Wed, 7 May 2008 14:40:50 +0000
Subject: [PATCH] checking socket connect state before sending final packet and
 calling shutdown (to prevent warnings)

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1317 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Transport/SlimJabber/XMPPReader.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/perlmods/OpenSRF/Transport/SlimJabber/XMPPReader.pm b/src/perlmods/OpenSRF/Transport/SlimJabber/XMPPReader.pm
index b0705ab..086a7a6 100644
--- a/src/perlmods/OpenSRF/Transport/SlimJabber/XMPPReader.pm
+++ b/src/perlmods/OpenSRF/Transport/SlimJabber/XMPPReader.pm
@@ -136,8 +136,10 @@ sub connect {
 
 sub disconnect {
     my $self = shift;
-    $self->send(JABBER_DISCONNECT); 
-    shutdown($self->socket, 2);
+    if($self->tcp_connected) {
+        $self->send(JABBER_DISCONNECT); 
+        shutdown($self->socket, 2);
+    }
     close($self->socket);
 }
 
-- 
2.43.2