zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-11 12:53:42 +02:00
Code Issues Projects Releases Packages Wiki Activity

Some compiling fixes found by -Wall in perl dirs..

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2990 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-11-07 17:40:05 +00:00 • committed by cras
commit df7ccce8ec
13 changed files with 37 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2,6 +2,8 @@
#include "irssi-version.h"
#include "core.h"
#include "pidwait.h"
#define DEFAULT_COMMAND_CATEGORY "Perl scripts' commands"
void perl_signal_add_hash(int priority, SV *sv)
@ -194,7 +196,7 @@ CODE:
croak("Irssi::timeout() : msecs must be >= 10");
RETVAL = -1;
} else {
RETVAL = perl_timeout_add(msecs, func, data, FALSE);
RETVAL = perl_timeout_add(msecs, func, data);
}
OUTPUT:
RETVAL
@ -209,7 +211,7 @@ CODE:
croak("Irssi::timeout_once() : msecs must be >= 10");
RETVAL = -1;
} else {
RETVAL = perl_timeout_add(msecs, func, data, TRUE);
RETVAL = perl_timeout_add(msecs, func, data);
}
OUTPUT:
RETVAL

2
src/perl/common/Expando.xs
View file

@ -71,13 +71,13 @@ static char *perl_expando_event(PerlExpando *rec, SERVER_REC *server,
retcount = perl_call_sv(rec->func, G_EVAL|G_SCALAR);
SPAGAIN;
ret = NULL;
if (SvTRUE(ERRSV)) {
/* make sure we don't get back here */
if (rec->script != NULL)
script_unregister_expandos(rec->script);
signal_emit("script error", 2, rec->script, SvPV(ERRSV, PL_na));
ret = NULL;
} else if (retcount > 0) {
ret = g_strdup(POPp);
*free_ret = TRUE;

6
src/perl/common/Irssi.xs
View file

@ -2,6 +2,12 @@
static int initialized = FALSE;
void perl_expando_init(void);
void perl_expando_deinit(void);
void perl_settings_init(void);
void perl_settings_deinit(void);
MODULE = Irssi PACKAGE = Irssi
PROTOTYPES: ENABLE

1
src/perl/common/module.h
View file

@ -26,6 +26,7 @@
#include "perl/perl-core.h"
#include "perl/perl-common.h"
#include "perl/perl-signals.h"
#include "perl/perl-sources.h"
typedef COMMAND_REC *Irssi__Command;
typedef LOG_REC *Irssi__Log;