Changeset a2a5236 for perl

Timestamp:

Dec 22, 2009, 6:37:48 PM (15 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

Branches:

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

Children:

2cca044

Parents:

0dbb7d2

git-author:

Alejandro R. Sedeño <asedeno@mit.edu> (12/22/09 01:11:45)

git-committer:

Alejandro R. Sedeño <asedeno@mit.edu> (12/22/09 18:37:48)

Message:

Split jabber reconnect / keep-alive loops

Reconnect may mutate the list of connections on servers like Google's,
which tack noise onto the end of the resource.

File:

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

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

@@ -136 +136 @@
 
     foreach my $jid ( $conn->getJIDs() ) {
-
-        next unless $conn->jidActive($jid) or $conn->tryReconnect($jid);
+        next if $conn->jidActive($jid);
+        $conn->tryReconnect($jid);
+    }
+
+    foreach my $jid ( $conn->getJIDs() ) {
+        next unless $conn->jidActive($jid);
 
         my $client = $conn->getConnectionFromJID($jid);