Changeset 3bf5516 for perl

Timestamp:

Feb 28, 2008, 7:27:35 PM (17 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

e005862, 61abb18

Parents:

e322b7c

Message:

Fix a file descriptor leak.

File:

• perl/modules/Jabber/lib/Net/XMPP/Connection.pm (modified) (1 diff)

perl/modules/Jabber/lib/Net/XMPP/Connection.pm

@@ -214 +214 @@
     $self->{DISCONNECTED} = 1;
     $self->{DEBUG}->Log1("Disconnect: bye bye");
+    $self->{DEBUG}->GetHandle()->close();
 }