[Opensrf-commits] r1670 - branches/rel_1_0/src/perl/lib/OpenSRF/Transport/SlimJabber (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-02-28 15:45:41 -0500 (Sat, 28 Feb 2009)
New Revision: 1670

Modified:
   branches/rel_1_0/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm
Log:
don't try to close the socket if it's not there

Modified: branches/rel_1_0/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm
===================================================================
--- branches/rel_1_0/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm	2009-02-28 20:45:00 UTC (rev 1669)
+++ branches/rel_1_0/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm	2009-02-28 20:45:41 UTC (rev 1670)
@@ -136,6 +136,7 @@
 
 sub disconnect {
     my $self = shift;
+    return unless $self->socket;
     if($self->tcp_connected) {
         $self->send(JABBER_DISCONNECT); 
         shutdown($self->socket, 2);