Example from examples/client.pl does not properly report connecntion to tls-only server

[dhyannataraj]

When I am trying to connect by examples/client.pl to tls-only server it does not print proper error text

my $status = $Connection->Connect(hostname=>$server,
port=>$port);

if (!(defined($status)))
{
print "ERROR: Jabber server is down or connection was not allowed.\n";
print " ($!)\n";
exit(0);
}

it sais

ERROR: Jabber server is down or connection was not allowed.
()

You should either change $! to $Connection->GetErrorCode() or change behavior of SetErrorCode so it also put error code to $!