diff options
author | LemonBoy <thatlemon@gmail.com> | 2015-09-19 23:58:16 +0200 |
---|---|---|
committer | LemonBoy <thatlemon@gmail.com> | 2015-09-19 23:58:16 +0200 |
commit | 06040fb30bc0503696794ff6097cd55eff332bb5 (patch) | |
tree | ecf64cc55aa80e219f8456a0e4b14f24fc3a2770 /src/perl | |
parent | 24d32c28ee2d5dbd001cbe29fa5d90077c6be107 (diff) | |
parent | 9586766d87820bdfa9e7cbe805f5ed4b7b0378e5 (diff) | |
download | irssi-06040fb30bc0503696794ff6097cd55eff332bb5.zip |
Merge remote-tracking branch 'origin' into sasl
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 18665cb7..a245206c 100644 --- a/src/perl/irc/Irc.xs +++ b/src/perl/irc/Irc.xs @@ -149,6 +149,7 @@ static void perl_client_fill_hash(HV *hv, CLIENT_REC *client) { (void) hv_store(hv, "nick", 4, new_pv(client->nick), 0); (void) hv_store(hv, "host", 4, new_pv(client->host), 0); + (void) hv_store(hv, "port", 4, newSViv(client->port), 0); (void) hv_store(hv, "proxy_address", 13, new_pv(client->proxy_address), 0); (void) hv_store(hv, "server", 6, iobject_bless(client->server), 0); (void) hv_store(hv, "pass_sent", 9, newSViv(client->pass_sent), 0); |