Changeset c6adf17 for perl


Ignore:
Timestamp:
Oct 1, 2010, 9:22:20 PM (13 years ago)
Author:
David Benjamin <davidben@mit.edu>
Branches:
master, release-1.10, release-1.7, release-1.8, release-1.9
Children:
afaef6e
Parents:
385cce2
git-author:
David Benjamin <davidben@mit.edu> (09/25/10 02:02:45)
git-committer:
David Benjamin <davidben@mit.edu> (10/01/10 21:22:20)
Message:
Track names along with timers, add :show timers

This will help people with BarnOwls eating CPU to diagnose timer leaks.
Location:
perl
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl/Complete/Client.pm

    rdc8f6e0 rc6adf17  
    3737    subs        => undef,
    3838    terminal    => undef,
     39    timers      => undef,
    3940    variables   => undef,
    4041    variable    => \&complete_variable,
  • perl/lib/BarnOwl/MainLoopCompatHook.pm

    r385cce2 rc6adf17  
    4444  unless ($self->{timer}) {
    4545    $self->{timer} = BarnOwl::Timer->new( {
     46        name => "BarnOwl::MainLoopCompatHook",
    4647        after => 0,
    4748        interval => 1,
  • perl/lib/BarnOwl/Timer.pm

    r8d16e58 rc6adf17  
    1313    my $self = {cb => $cb};
    1414
     15    my $name = $args->{name};
     16    $name = "(unnamed)" unless defined $name;
     17
    1518    bless($self, $class);
    1619
    1720    $self->{timer} = BarnOwl::Internal::add_timer($args->{after} || 0,
    1821                                                  $args->{interval} || 0,
    19                                                   $self);
     22                                                  $self,
     23                                                  $name);
    2024    return $self;
    2125}
  • perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

    rc8d9f84 rc6adf17  
    324324    $self->{reconnect_timer} =
    325325        BarnOwl::Timer->new( {
     326            name  => 'IRC (' . $self->alias . ') reconnect_timer',
    326327            after => $interval,
    327328            cb    => sub {
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber/Connection.pm

    r0dbb7d2 rc6adf17  
    198198        $BarnOwl::Module::Jabber::vars{keepAliveTimer} =
    199199            BarnOwl::Timer->new({
     200                'name' => "Jabber ($fullJid) keepAliveTimer",
    200201                'after' => 5,
    201202                'interval' => 5,
  • perl/modules/Twitter/lib/BarnOwl/Module/Twitter/Handle.pm

    rc8d9f84 rc6adf17  
    160160    }
    161161
     162    my $nickname = $self->{cfg}->{account_nickname};
    162163    if($self->{cfg}->{poll_for_tweets}) {
    163164        $self->{timer} = BarnOwl::Timer->new({
     165            name     => "Twitter ($nickname) poll_for_tweets",
    164166            after    => $delay,
    165167            interval => 90,
     
    170172    if($self->{cfg}->{poll_for_dms}) {
    171173        $self->{direct_timer} = BarnOwl::Timer->new({
     174            name     => "Twitter ($nickname) poll_for_dms",
    172175            after    => $delay,
    173176            interval => 180,
Note: See TracChangeset for help on using the changeset viewer.