Ignore:
Timestamp:
Sep 25, 2010, 10:26:08 PM (14 years ago)
Author:
David Benjamin <davidben@mit.edu>
Branches:
master, release-1.10, 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/Twitter/lib/BarnOwl/Module/Twitter/Handle.pm

    r10dd8e6 rc8d9f84  
    149149    my $weak = $self;
    150150    weaken($weak);
     151
     152    # Stop any existing timers.
     153    if (defined $self->{timer}) {
     154        $self->{timer}->stop;
     155        $self->{timer} = undef;
     156    }
     157    if (defined $self->{direct_timer}) {
     158        $self->{direct_timer}->stop;
     159        $self->{direct_timer} = undef;
     160    }
    151161
    152162    if($self->{cfg}->{poll_for_tweets}) {
Note: See TracChangeset for help on using the changeset viewer.