From 5fde51a364813cd1c5c4e7f3a45b9bdf667d5e64 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Mon, 11 Mar 2002 16:44:42 +0000
Subject: 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);
-- 
cgit v1.2.3