io::socket::inet, somewhere between version 1.29 and 1.31, requires the peerport...
authorerickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Mon, 13 Oct 2008 20:44:50 +0000 (20:44 +0000)
committererickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Mon, 13 Oct 2008 20:44:50 +0000 (20:44 +0000)
git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1452 9efc2488-bf62-4759-914b-345cdb29e865

src/perl/lib/OpenSRF/Transport/SlimJabber/Client.pm

index 0fb520c..e6f6705 100644 (file)
@@ -140,18 +140,17 @@ sub initialize {
 
     my $socket = IO::Socket::INET->new(
         PeerHost => $host,
 
     my $socket = IO::Socket::INET->new(
         PeerHost => $host,
-        PeerPort => $port,
-        Peer => $port,
+        PeerPort => int($port),
         Proto  => 'tcp' );
 
         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);
 
            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;
            unless ( $self->reader->connected );
 
        return $self;