From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 13 Oct 2008 20:44:50 +0000 (+0000)
Subject: io::socket::inet, somewhere between version 1.29 and 1.31, requires the peerport... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=cf2925a45984d976a8badf6d5475458d86224af0;p=working%2FOpenSRF.git

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

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1452 9efc2488-bf62-4759-914b-345cdb29e865
---

diff --git a/src/perl/lib/OpenSRF/Transport/SlimJabber/Client.pm b/src/perl/lib/OpenSRF/Transport/SlimJabber/Client.pm
index 0fb520c..e6f6705 100644
--- a/src/perl/lib/OpenSRF/Transport/SlimJabber/Client.pm
+++ b/src/perl/lib/OpenSRF/Transport/SlimJabber/Client.pm
@@ -140,18 +140,17 @@ sub initialize {
 
     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;