Changeset 384b2fa for perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

Timestamp:

Nov 17, 2013, 3:44:14 AM (11 years ago)

Author:

Anders Kaseorg <andersk@mit.edu>

Branches:

release-1.9

Children:

b783311

Parents:

e2e4072

git-author:

James Wright <james2vegas@aim.com> (09/17/13 21:56:02)

git-committer:

Anders Kaseorg <andersk@mit.edu> (11/17/13 03:44:14)

Message:

change BarnOwl::Module::Jabber::getServerFromJID to use Net::DNS::RR::SRV methods instead of hash elements (which seem to no longer work).  This unbreaks connecting via jabber to google or facebook

(cherry picked from commit 41064be8e484a638bef23474f173491cd87969b3)

File:

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

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

@@ -1313 +1313 @@
     {
         my @answer = $packet->answer;
-        return $answer[0]{target}, $answer[0]{port};
+        return $answer[0]->target, $answer[0]->port if @answer;
     }