Changeset 7424a5b for lib/BarnOwl/Module/Twitter

Timestamp:

Oct 28, 2009, 11:13:05 PM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.7, release-1.8, release-1.9

Children:

e4951ea

Parents:

d69c37c

git-author:

Nelson Elhage <nelhage@mit.edu> (10/06/09 23:11:25)

git-committer:

Nelson Elhage <nelhage@mit.edu> (10/28/09 23:13:05)

Message:

Weakrefs

File:

• lib/BarnOwl/Module/Twitter/Handle.pm (modified) (3 diffs)

lib/BarnOwl/Module/Twitter/Handle.pm

@@ -16 +16 @@
 use Net::Twitter::Lite;
 use HTML::Entities;
+
+use Scalar::Util qw(weaken);
 
 use BarnOwl;
@@ -107 +109 @@
     my $delay = shift;
 
+    my $weak = weaken($self);
+
     if($self->{cfg}->{poll_for_tweets}) {
         $self->{timer} = BarnOwl::Timer->new({
             after    => $delay,
             interval => 60,
-            cb       => sub { $self->poll_twitter }
+            cb       => sub { $weak->poll_twitter if $weak }
            });
     }
@@ -119 +123 @@
             after    => $delay,
             interval => 120,
-            cb       => sub { $self->poll_direct }
+            cb       => sub { $weak->poll_direct if $weak }
            });
     }