Changeset c8d9f84 for perl/modules/IRC

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/IRC/lib/BarnOwl/Module/IRC/Connection.pm (modified) (2 diffs)

perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

@@ -319 +319 @@
     my $weak = $self;
     weaken($weak);
+    if (defined $self->{reconnect_timer}) {
+        $self->{reconnect_timer}->stop;
+    }
     $self->{reconnect_timer} = 
         BarnOwl::Timer->new( {
@@ -331 +334 @@
     my $self = shift;
     delete $BarnOwl::Module::IRC::reconnect{$self->alias};
+    if (defined $self->{reconnect_timer}) {
+        $self->{reconnect_timer}->stop;
+    }
     delete $self->{reconnect_timer};
 }