Changeset c6adf17 for perl/lib/BarnOwl/Timer.pm

Timestamp:

Oct 1, 2010, 9:22:20 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:

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.

File:

• perl/lib/BarnOwl/Timer.pm (modified) (1 diff)

perl/lib/BarnOwl/Timer.pm

@@ -13 +13 @@
     my $self = {cb => $cb};
 
+    my $name = $args->{name};
+    $name = "(unnamed)" unless defined $name;
+
     bless($self, $class);
 
     $self->{timer} = BarnOwl::Internal::add_timer($args->{after} || 0,
                                                   $args->{interval} || 0,
-                                                  $self);
+                                                  $self,
+                                                  $name);
     return $self;
 }