diff options
| author | LemonBoy <thatlemon@gmail.com> | 2016-10-20 21:41:36 +0200 |
|---|---|---|
| committer | LemonBoy <thatlemon@gmail.com> | 2016-12-12 21:41:07 +0100 |
| commit | 4ccffd85ffd06325687546f78b78e3e7fce575c5 (patch) | |
| tree | e75c659ca06281cdc0f532cdc81e8121861755c1 /src/perl | |
| parent | 91c9e871c78e203aed834edd1e1f558680a6ccfa (diff) | |
| download | irssi-4ccffd85ffd06325687546f78b78e3e7fce575c5.zip | |
Expose 'sasl_success' to the perl side.
Diffstat (limited to 'src/perl')
| -rw-r--r-- | src/perl/irc/Irc.xs | 1 |
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) |