Changeset 4d17916 for perl


Ignore:
Timestamp:
Jan 23, 2007, 9:56:58 PM (17 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    r0ad0e97 r4d17916  
    141141    my $self = shift;
    142142    my $jidStr = shift;
    143     return 0 unless exists $self->{$jidStr}->{Client};
    144 
    145     $self->{$jidStr}->{Client}->Disconnect();
     143    return 0 unless exists $self->{$jidStr};
     144
     145    $self->{$jidStr}->{Client}->Disconnect()
     146      if $self->{$jidStr}->{Client};
    146147    delete $self->{$jidStr};
    147148
Note: See TracChangeset for help on using the changeset viewer.