summaryrefslogtreecommitdiff
path: root/src/perl/irc/Irc.xs
diff options
context:
space:
mode:
authorailin-nemui <ailin-nemui@users.noreply.github.com>2015-09-19 02:53:25 +0200
committerailin-nemui <ailin-nemui@users.noreply.github.com>2015-09-19 02:53:25 +0200
commit2b13e793c4872711bc046363303cca4bc060e017 (patch)
treee56c1428a5d474faeb1902541ad4395a48d881f1 /src/perl/irc/Irc.xs
parent7b46dae1825fc90d97163b40cdca2ffaceb2e13c (diff)
parent51496cd09f5d2f2da0a4ae678663c66e2ceae17c (diff)
downloadirssi-2b13e793c4872711bc046363303cca4bc060e017.zip
Merge pull request #259 from dequis/irssiproxy
Updates for irssiproxy
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 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);