summaryrefslogtreecommitdiff
path: root/src/perl/perl-common.c
diff options
context:
space:
mode:
authorTimo Sirainen <cras@irssi.org>2001-02-20 02:37:01 +0000
committercras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564>2001-02-20 02:37:01 +0000
commit2aeb9259e005635d0ee76e489d62d173623f6fb3 (patch)
tree9ba2fe9543c448d24fe308406ecda22766c6160d /src/perl/perl-common.c
parent7a6c3f0b7c98c380e2225c358020704bdad73fa7 (diff)
downloadirssi-2aeb9259e005635d0ee76e489d62d173623f6fb3.zip
DCC updates
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1267 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-common.c')
-rw-r--r--src/perl/perl-common.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c
index 15d35c1e..7ade85c9 100644
--- a/src/perl/perl-common.c
+++ b/src/perl/perl-common.c
@@ -288,6 +288,7 @@ void perl_nick_fill_hash(HV *hv, NICK_REC *nick)
type = "NICK";
chat_type = (char *) chat_protocol_find_id(nick->chat_type)->name;
+ hv_store(hv, "type", 4, new_pv(type), 0);
hv_store(hv, "last_check", 10, newSViv(nick->last_check), 0);
hv_store(hv, "nick", 4, new_pv(nick->nick), 0);