summaryrefslogtreecommitdiff
path: root/src/perl
diff options
context:
space:
mode:
authorJilles Tjoelker <jilles@irssi.org>2008-11-28 00:16:51 +0000
committerjilles <jilles@dbcabf3a-b0e7-0310-adc4-f8d773084564>2008-11-28 00:16:51 +0000
commit89cd47bf3a937c3077acdc95d98cc4b389e30608 (patch)
treee96f73aa452cc2fbec41f45f973cfaf42acacb3a /src/perl
parentaefa7b47c14f2bd8801b233907a84de4f6eee3b8 (diff)
downloadirssi-89cd47bf3a937c3077acdc95d98cc4b389e30608.zip
Allow storing multiple "other" prefixes such as +q and +a.
Original patch by JasonX, somewhat changed by exg and me. git-svn-id: file:///var/www/svn.irssi.org/SVN/irssi/trunk@4922 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl')
-rw-r--r--src/perl/perl-common.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c
index 517e6102..e13c2cf3 100644
--- a/src/perl/perl-common.c
+++ b/src/perl/perl-common.c
@@ -432,7 +432,8 @@ void perl_nick_fill_hash(HV *hv, NICK_REC *nick)
hv_store(hv, "op", 2, newSViv(nick->op), 0);
hv_store(hv, "halfop", 6, newSViv(nick->halfop), 0);
hv_store(hv, "voice", 5, newSViv(nick->voice), 0);
- hv_store(hv, "other", 5, newSViv(nick->other), 0);
+ hv_store(hv, "other", 5, newSViv(nick->prefixes[0]), 0);
+ hv_store(hv, "prefixes", 8, new_pv(nick->prefixes), 0);
hv_store(hv, "last_check", 10, newSViv(nick->last_check), 0);
hv_store(hv, "send_massjoin", 13, newSViv(nick->send_massjoin), 0);