Ignore:
Timestamp:
Sep 25, 2010, 10:26:08 PM (11 years ago)
Author:
David Benjamin <davidben@mit.edu>
Branches:
master, release-1.7, release-1.8, release-1.9
Children:
e75a6df
Parents:
b120bd3
git-author:
David Benjamin <davidben@mit.edu> (09/24/10 17:34:51)
git-committer:
David Benjamin <davidben@mit.edu> (09/25/10 22:26:08)
Message:
More aggressively stop Timers created in perl

In case something leaks with references or whatever, at least we don't
leak timers.
File:
1 edited

Legend:

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

    r416241f rc8d9f84  
    319319    my $weak = $self;
    320320    weaken($weak);
     321    if (defined $self->{reconnect_timer}) {
     322        $self->{reconnect_timer}->stop;
     323    }
    321324    $self->{reconnect_timer} =
    322325        BarnOwl::Timer->new( {
     
    331334    my $self = shift;
    332335    delete $BarnOwl::Module::IRC::reconnect{$self->alias};
     336    if (defined $self->{reconnect_timer}) {
     337        $self->{reconnect_timer}->stop;
     338    }
    333339    delete $self->{reconnect_timer};
    334340}
Note: See TracChangeset for help on using the changeset viewer.