From cf2925a45984d976a8badf6d5475458d86224af0 Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 13 Oct 2008 20:44:50 +0000 Subject: [PATCH] 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 --- src/perl/lib/OpenSRF/Transport/SlimJabber/Client.pm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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; -- 2.43.2