Changeset 416241f for perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

Timestamp:

Dec 28, 2009, 12:25:00 AM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.6, release-1.7, release-1.8, release-1.9

Children:

85fa6e4

Parents:

3acab0e

git-author:

Nelson Elhage <nelhage@mit.edu> (12/23/09 12:28:51)

git-committer:

Nelson Elhage <nelhage@mit.edu> (12/28/09 00:25:00)

Message:

IRC: irc-disconnect on a pending reconnect should cancel it.

File:

• perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm (modified) (1 diff)

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

@@ -328 +328 @@
 }
 
+sub cancel_reconnect {
+    my $self = shift;
+    delete $BarnOwl::Module::IRC::reconnect{$self->alias};
+    delete $self->{reconnect_timer};
+}
+
 sub connected {
     my $self = shift;
     my $msg = shift;
     BarnOwl::admin_message("IRC", $msg);
-    delete $BarnOwl::Module::IRC::reconnect{$self->alias};
-    delete $self->{reconnect_timer};
+    $self->cancel_reconnect;
     $BarnOwl::Module::IRC::ircnets{$self->alias} = $self;
     my $fd = $self->getSocket()->fileno();