[Opensrf-commits] r1452 - trunk/src/perl/lib/OpenSRF/Transport/SlimJabber

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-10-13 16:44:50 -0400 (Mon, 13 Oct 2008)
New Revision: 1452

Modified:
   trunk/src/perl/lib/OpenSRF/Transport/SlimJabber/Client.pm
Log:
io::socket::inet, somewhere between version 1.29 and 1.31, requires the peerport to be explicitly cast to an int.  also updated error handling to use correct error var

Modified: trunk/src/perl/lib/OpenSRF/Transport/SlimJabber/Client.pm
===================================================================
--- trunk/src/perl/lib/OpenSRF/Transport/SlimJabber/Client.pm	2008-10-10 22:16:36 UTC (rev 1451)
+++ trunk/src/perl/lib/OpenSRF/Transport/SlimJabber/Client.pm	2008-10-13 20:44:50 UTC (rev 1452)
@@ -140,18 +140,17 @@
 
     my $socket = IO::Socket::INET->new(
         PeerHost => $host,
-        PeerPort => $port,
-        Peer => $port,
+        PeerPort => int($port),
         Proto  => 'tcp' );
 
-    throw OpenSRF::EX::Jabber("Could not open TCP socket to Jabber server: $!")
+    throw OpenSRF::EX::Jabber("Could not open TCP socket to Jabber server: $@")
 	    unless ( $socket and $socket->connected );
 
     $self->socket($socket);
     $self->reader(OpenSRF::Transport::SlimJabber::XMPPReader->new($socket));
     $self->reader->connect($host, $username, $password, $resource);
 
-    throw OpenSRF::EX::Jabber("Could not authenticate with Jabber server: $!")
+    throw OpenSRF::EX::Jabber("Could not authenticate with Jabber server: $@")
 	    unless ( $self->reader->connected );
 
 	return $self;