summaryrefslogtreecommitdiff
path: root/src/perl/common
diff options
context:
space:
mode:
authorJilles Tjoelker <jilles@irssi.org>2009-02-21 21:17:51 +0000
committerjilles <jilles@dbcabf3a-b0e7-0310-adc4-f8d773084564>2009-02-21 21:17:51 +0000
commitcb1f07352af92688983563998f9251ab20cac821 (patch)
tree9b01c36bec2240c4ba98f24bd5ed6a5a6ec60bd2 /src/perl/common
parent946e7784b00c9051013b996bd09dcaf144cf250c (diff)
downloadirssi-cb1f07352af92688983563998f9251ab20cac821.zip
Reject invalid level specifications in /set.
Most of these have names that end in "_level". git-svn-id: file:///var/www/svn.irssi.org/SVN/irssi/trunk@5021 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/common')
-rw-r--r--src/perl/common/Core.xs4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index 1a7ee18d..76ea0093 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -492,6 +492,10 @@ OUTPUT:
int
level2bits(str)
char *str
+CODE:
+ RETVAL = level2bits(str, NULL);
+OUTPUT:
+ RETVAL
void
bits2level(bits)