diff options
| author | Hans Nielsen <hans@stackallocated.com> | 2014-07-01 21:21:03 -0700 |
|---|---|---|
| committer | Hans Nielsen <hans@stackallocated.com> | 2015-02-24 19:53:23 -0800 |
| commit | 178d595c96dafe36a7041864a00e1e45375dab76 (patch) | |
| tree | 24036b2470cf255417bf104f0cb7423d21971065 /src/perl/irc | |
| parent | ee3f059e6d895cda94bee0a2df7136108012b910 (diff) | |
| download | irssi-178d595c96dafe36a7041864a00e1e45375dab76.zip | |
Add port to proxy client struct for Perl scripts
Diffstat (limited to 'src/perl/irc')
| -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); |