From 5fde51a364813cd1c5c4e7f3a45b9bdf667d5e64 Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Mon, 11 Mar 2002 16:44:42 +0000 Subject: [PATCH] added ownnick to Irssi::Channel git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2583 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/perl-common.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c index 76fa3f3f..cb5f0987 100644 --- a/src/perl/perl-common.c +++ b/src/perl/perl-common.c @@ -340,6 +340,9 @@ void perl_channel_fill_hash(HV *hv, CHANNEL_REC *channel) perl_window_item_fill_hash(hv, (WI_ITEM_REC *) channel); + if (channel->ownnick != NULL) + hv_store(hv, "ownnick", 7, iobject_bless(channel->ownnick), 0); + hv_store(hv, "topic", 5, new_pv(channel->topic), 0); hv_store(hv, "topic_by", 8, new_pv(channel->topic_by), 0); hv_store(hv, "topic_time", 10, newSViv(channel->topic_time), 0);