aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-10-27 05:20:20 -04: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");
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

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

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

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

@ -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 */