Changeset 4d17916 for perl/modules/jabber.pl

Timestamp:

Jan 23, 2007, 9:56:58 PM (18 years ago)

Author:

Nelson Elhage <nelhage@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:

1bdffcb

Parents:

0ad0e97

git-author:

Nelson Elhage <nelhage@mit.edu> (01/23/07 21:56:55)

git-committer:

Nelson Elhage <nelhage@mit.edu> (01/23/07 21:56:58)

Message:

removeConnection should actually remove the connection, even if it's
undef.

File:

• perl/modules/jabber.pl (modified) (1 diff)

perl/modules/jabber.pl

@@ -141 +141 @@
     my $self = shift;
     my $jidStr = shift;
-    return 0 unless exists $self->{$jidStr}->{Client};
-
-    $self->{$jidStr}->{Client}->Disconnect();
+    return 0 unless exists $self->{$jidStr};
+
+    $self->{$jidStr}->{Client}->Disconnect()
+      if $self->{$jidStr}->{Client};
     delete $self->{$jidStr};