Changeset be3d80c for perl

Timestamp:

Sep 17, 2013, 9:56:02 PM (11 years ago)

Author:

James Wright <james2vegas@aim.com>

Children:

c063ab5

Parents:

441fd42

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

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;
     }