Expose 'sasl_success' to the perl side.

This commit is contained in:
LemonBoy 2016-10-20 21:41:36 +02:00
commit 4ccffd85ff
2 changed files with 2 additions and 1 deletions

View file

@ -42,7 +42,7 @@ static void sig_cap_end(IRC_SERVER_REC *server)
{
/* The negotiation has now been terminated, if we didn't manage to
* authenticate successfully with the server just disconnect. */
if (server->sasl_success == FALSE &&
if (!server->sasl_success &&
settings_get_bool("sasl_disconnect_on_failure"))
server_disconnect(SERVER(server));