diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-11-10 10:14:18 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-11-10 10:14:18 +0000 |
| commit | 902280eca78875a82619770cc94afe88ae418a8c (patch) | |
| tree | 7e3a597cc4047f7dde4ea41df796332427225be5 /src | |
| parent | 14f3c0c2e5f62b9671a0489b00dac4e6e5b4b8e9 (diff) | |
| download | irssi-902280eca78875a82619770cc94afe88ae418a8c.zip | |
Irssi::timeout_add(), timeout_add_once() and input_add() were buggy.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2992 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src')
| -rw-r--r-- | src/perl/common/Core.xs | 6 | ||||
| -rw-r--r-- | src/perl/perl-sources.c | 1 | ||||
| -rw-r--r-- | src/perl/perl-sources.h | 4 |
3 files changed, 6 insertions, 5 deletions
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index d3e07792..d5b9d6e8 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -196,7 +196,7 @@ 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 @@ -211,7 +211,7 @@ CODE: croak("Irssi::timeout_once() : msecs must be >= 10"); RETVAL = -1; } else { - RETVAL = perl_timeout_add(msecs, func, data); + RETVAL = perl_timeout_add(msecs, func, data, TRUE); } OUTPUT: RETVAL @@ -244,7 +244,7 @@ input_add(source, condition, func, data) SV *func SV *data CODE: - RETVAL = perl_input_add(source, condition, func, data); + RETVAL = perl_input_add(source, condition, func, data, FALSE); OUTPUT: RETVAL diff --git a/src/perl/perl-sources.c b/src/perl/perl-sources.c index c4d323e6..9379601c 100644 --- a/src/perl/perl-sources.c +++ b/src/perl/perl-sources.c @@ -24,6 +24,7 @@ #include "perl-core.h" #include "perl-common.h" +#include "perl-sources.h" typedef struct { PERL_SCRIPT_REC *script; diff --git a/src/perl/perl-sources.h b/src/perl/perl-sources.h index db165689..a83a65a6 100644 --- a/src/perl/perl-sources.h +++ b/src/perl/perl-sources.h @@ -1,8 +1,8 @@ #ifndef __PERL_SOURCES_H #define __PERL_SOURCES_H -int perl_timeout_add(int msecs, SV *func, SV *data); -int perl_input_add(int source, int condition, SV *func, SV *data); +int perl_timeout_add(int msecs, SV *func, SV *data, int once); +int perl_input_add(int source, int condition, SV *func, SV *data, int once); void perl_source_remove(int tag); /* remove all sources used by script */ |