summaryrefslogtreecommitdiff
path: root/src/perl/irc/Irc.xs
diff options
context:
space:
mode:
authorailin-nemui <ailin-nemui@users.noreply.github.com>2016-12-21 15:29:26 +0100
committerGitHub <noreply@github.com>2016-12-21 15:29:26 +0100
commit77ff8f5b7467dceb2e2f90e0e0aa5157cbb909ec (patch)
treeb6871d487fef652f552b10e2a40c6ccda8d78ef0 /src/perl/irc/Irc.xs
parent07050e2a3cca9688dde42a38ba4f76b02e7eed8c (diff)
parent7a7f6abc168b571a0db4fa65c760fe6e46edf199 (diff)
downloadirssi-77ff8f5b7467dceb2e2f90e0e0aa5157cbb909ec.zip
Merge pull request #514 from LemonBoy/sasl_fail
Add an option to stop the connection when SASL fails.
Diffstat (limited to 'src/perl/irc/Irc.xs')
-rw-r--r--src/perl/irc/Irc.xs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/perl/irc/Irc.xs b/src/perl/irc/Irc.xs
index 8b3b0c45..41690010 100644
--- a/src/perl/irc/Irc.xs
+++ b/src/perl/irc/Irc.xs
@@ -32,6 +32,7 @@ static void perl_irc_server_fill_hash(HV *hv, IRC_SERVER_REC *server)
(void) hv_store(hv, "isupport_sent", 13, newSViv(server->isupport_sent), 0);
(void) hv_store(hv, "cap_complete", 12, newSViv(server->cap_complete), 0);
+ (void) hv_store(hv, "sasl_success", 12, newSViv(server->sasl_success), 0);
av = newAV();
for (tmp = server->cap_supported; tmp != NULL; tmp = tmp->next)