io::socket::inet, somewhere between version 1.29 and 1.31, requires the peerport...
[OpenSRF.git] / 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,
-        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;