Changeset 3c455b4 for perl


Ignore:
Timestamp:
May 28, 2007, 9:56:26 PM (14 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
Branches:
master, barnowl_perlaim, debian, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber/Connection.pm

    r2cedb7a r3c455b4  
    4343    my $muc = Net::Jabber::MUC->new(connection => $self, @_);
    4444    $muc->Join(@_);
    45     push @{$self->MUCs}, $muc;
     45
     46    # Add MUC to list of MUCs, unless we're just changing nicks.
     47    push @{$self->MUCs}, $muc unless grep {$_->BaseJID eq $muc->BaseJID} $self->MUCs;
    4648}
    4749
Note: See TracChangeset for help on using the changeset viewer.