Changeset 3c455b4 for perl/modules/Jabber/lib/BarnOwl/Module/Jabber

Timestamp:

May 28, 2007, 9:56:26 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:

5ddb952

Parents:

693c8f2

Message:

r675, take two. This was lost in the merging of the PAR branch.

Fix the bug in which rejoining a MUC you're already in (nick change)
results in the MUC appearing multiple times when you show presence
info for all MUCs.

File:

• perl/modules/Jabber/lib/BarnOwl/Module/Jabber/Connection.pm (modified) (1 diff)

perl/modules/Jabber/lib/BarnOwl/Module/Jabber/Connection.pm

@@ -43 +43 @@
     my $muc = Net::Jabber::MUC->new(connection => $self, @_);
     $muc->Join(@_);
-    push @{$self->MUCs}, $muc;
+
+    # Add MUC to list of MUCs, unless we're just changing nicks.
+    push @{$self->MUCs}, $muc unless grep {$_->BaseJID eq $muc->BaseJID} $self->MUCs;
 }