aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
Code

Irssi::timeout_add(), timeout_add_once() and input_add() were buggy.

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2992 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-11-10 10:14:18 +00:00 committed by cras
parent 14f3c0c2e5
commit 902280eca7
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/perl/common/Core.xs
View File

@ -196,7 +196,7 @@ CODE:
croak("Irssi::timeout() : msecs must be >= 10"); croak("Irssi::timeout() : msecs must be >= 10");
RETVAL = -1; RETVAL = -1;
} else { } else {
RETVAL = perl_timeout_add(msecs, func, data); RETVAL = perl_timeout_add(msecs, func, data, FALSE);
} }
OUTPUT: OUTPUT:
RETVAL RETVAL
@ -211,7 +211,7 @@ CODE:
croak("Irssi::timeout_once() : msecs must be >= 10"); croak("Irssi::timeout_once() : msecs must be >= 10");
RETVAL = -1; RETVAL = -1;
} else { } else {
RETVAL = perl_timeout_add(msecs, func, data); RETVAL = perl_timeout_add(msecs, func, data, TRUE);
} }
OUTPUT: OUTPUT:
RETVAL RETVAL
@ -244,7 +244,7 @@ input_add(source, condition, func, data)
SV *func SV *func
SV *data SV *data
CODE: CODE:
RETVAL = perl_input_add(source, condition, func, data); RETVAL = perl_input_add(source, condition, func, data, FALSE);
OUTPUT: OUTPUT:
RETVAL RETVAL

1
src/perl/perl-sources.c
View File

@ -24,6 +24,7 @@
#include "perl-core.h" #include "perl-core.h"
#include "perl-common.h" #include "perl-common.h"
#include "perl-sources.h"
typedef struct { typedef struct {
PERL_SCRIPT_REC *script; PERL_SCRIPT_REC *script;

4
src/perl/perl-sources.h
View File

@ -1,8 +1,8 @@
#ifndef __PERL_SOURCES_H #ifndef __PERL_SOURCES_H
#define __PERL_SOURCES_H #define __PERL_SOURCES_H
int perl_timeout_add(int msecs, 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 perl_input_add(int source, int condition, SV *func, SV *data, int once);
void perl_source_remove(int tag); void perl_source_remove(int tag);
/* remove all sources used by script */ /* remove all sources used by script */