Changeset c8d9f84 for perl/modules/Twitter/lib

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:

• perl/modules/Twitter/lib/BarnOwl/Module/Twitter/Handle.pm (modified) (1 diff)

perl/modules/Twitter/lib/BarnOwl/Module/Twitter/Handle.pm

@@ -149 +149 @@
     my $weak = $self;
     weaken($weak);
+
+    # Stop any existing timers.
+    if (defined $self->{timer}) {
+        $self->{timer}->stop;
+        $self->{timer} = undef;
+    }
+    if (defined $self->{direct_timer}) {
+        $self->{direct_timer}->stop;
+        $self->{direct_timer} = undef;
+    }
 
     if($self->{cfg}->{poll_for_tweets}) {