From 1ca12296b579d2b651b5aac630721e7e3d410425 Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Sat, 28 Feb 2009 20:45:00 +0000
Subject: [PATCH] don't try to close the socket if it's not there

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1669 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm b/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm
index 086a7a6..9d10463 100644
--- a/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm
+++ b/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm
@@ -136,6 +136,7 @@ sub connect {
 
 sub disconnect {
     my $self = shift;
+    return unless $self->socket;
     if($self->tcp_connected) {
         $self->send(JABBER_DISCONNECT); 
         shutdown($self->socket, 2);
-- 
2.11.0