zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-09 03:40:16 +02:00
Code Issues Projects Releases Packages Wiki Activity

Irssi::timeout_add() - don't allow smaller values than 10

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2658 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-04-09 05:18:11 +00:00 • committed by cras
commit 61e8c12bb5
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/perl/common/Core.xs
View file

@ -136,7 +136,12 @@ timeout_add(msecs, func, data)
SV *func
SV *data
CODE:
RETVAL = perl_timeout_add(msecs, func, data);
if (msecs < 10) {
croak("Irssi::timeout() : msecs must be >= 10");
RETVAL = -1;
} else {
RETVAL = perl_timeout_add(msecs, func, data);
}
OUTPUT:
RETVAL