Changeset c8d9f84 for perl/lib/BarnOwl

Timestamp:

Sep 25, 2010, 10:26:08 PM (15 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/lib/BarnOwl/MainLoopCompatHook.pm (modified) (1 diff)

perl/lib/BarnOwl/MainLoopCompatHook.pm

@@ -37 +37 @@
 }
 
+sub DESTROY {
+    my $self = shift;
+    $self->clear();
+}
+
 sub _ensure_timer {
   my $self = shift;