aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2025-02-02 15:08:01 -05:00
Code

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
parent aa5934ade3
commit 61e8c12bb5
1 changed files with 6 additions and 1 deletions
Show Stats 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 *func
SV *data SV *data
CODE: 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: OUTPUT:
RETVAL RETVAL