Changeset c8d9f84 for perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

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/Jabber/lib/BarnOwl/Module/Jabber.pm (modified) (1 diff)

perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

@@ -112 +112 @@
     if ( !$conn->connected() ) {
         # We don't need this timer any more.
+        if (defined $vars{keepAliveTimer}) {
+            $vars{keepAliveTimer}->stop;
+        }
         delete $vars{keepAliveTimer};
         return;