diff options
Diffstat (limited to 'src/perl/irc')
| -rw-r--r-- | src/perl/irc/Irc.xs | 4 | ||||
| -rw-r--r-- | src/perl/irc/Netsplit.xs | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/src/perl/irc/Irc.xs b/src/perl/irc/Irc.xs index 554065bc..b0588cec 100644 --- a/src/perl/irc/Irc.xs +++ b/src/perl/irc/Irc.xs @@ -119,7 +119,9 @@ static void perl_netsplit_server_fill_hash(HV *hv, NETSPLIT_SERVER_REC *rec) static void perl_netsplit_channel_fill_hash(HV *hv, NETSPLIT_CHAN_REC *rec) { hv_store(hv, "name", 4, new_pv(rec->name), 0); - hv_store(hv, "nick", 4, iobject_bless(&rec->nick), 0); + hv_store(hv, "op", 2, newSViv(rec->op), 0); + hv_store(hv, "halfop", 6, newSViv(rec->halfop), 0); + hv_store(hv, "voice", 5, newSViv(rec->voice), 0); } static void perl_notifylist_fill_hash(HV *hv, NOTIFYLIST_REC *notify) diff --git a/src/perl/irc/Netsplit.xs b/src/perl/irc/Netsplit.xs index e4ef85e4..b0b1e523 100644 --- a/src/perl/irc/Netsplit.xs +++ b/src/perl/irc/Netsplit.xs @@ -9,7 +9,7 @@ netsplit_find(server, nick, address) char *nick char *address -Irssi::Irc::Nick +Irssi::Irc::Netsplitchannel netsplit_find_channel(server, nick, address, channel) Irssi::Irc::Server server char *nick |