diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-05-07 23:40:21 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-05-07 23:40:21 +0000 |
| commit | c1384d919b2e0fe7a17553113fea1f3c3867b9aa (patch) | |
| tree | 178ca8b194188be55512c9a4819db342a5158ef1 /src/perl/common | |
| parent | 0d76b6538132e8baa793d5a199cc14cddcaf7593 (diff) | |
| download | irssi-c1384d919b2e0fe7a17553113fea1f3c3867b9aa.zip | |
return value wasn't a good idea after all - added Irssi::timeout_add_once()
instead.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2758 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/common')
| -rw-r--r-- | src/perl/common/Core.xs | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index 0fb93efb..d6fdfdd8 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -193,7 +193,22 @@ CODE: croak("Irssi::timeout() : msecs must be >= 10"); RETVAL = -1; } else { - RETVAL = perl_timeout_add(msecs, func, data); + RETVAL = perl_timeout_add(msecs, func, data, FALSE); + } +OUTPUT: + RETVAL + +int +timeout_add_once(msecs, func, data) + int msecs + SV *func + SV *data +CODE: + if (msecs < 10) { + croak("Irssi::timeout_once() : msecs must be >= 10"); + RETVAL = -1; + } else { + RETVAL = perl_timeout_add(msecs, func, data, TRUE); } OUTPUT: RETVAL |