diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-11-07 17:40:05 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-11-07 17:40:05 +0000 |
| commit | df7ccce8eca3690ccabdd0419aa8c75a6a0522bc (patch) | |
| tree | a1938abe666ea7de1148cd57ae43c92466d3982f /src/perl/common | |
| parent | a6095cd421985fcbccb6d41356e3c40e3f8c1689 (diff) | |
| download | irssi-df7ccce8eca3690ccabdd0419aa8c75a6a0522bc.zip | |
Some compiling fixes found by -Wall in perl dirs..
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2990 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/common')
| -rw-r--r-- | src/perl/common/Core.xs | 6 | ||||
| -rw-r--r-- | src/perl/common/Expando.xs | 2 | ||||
| -rw-r--r-- | src/perl/common/Irssi.xs | 6 | ||||
| -rw-r--r-- | src/perl/common/module.h | 1 |
4 files changed, 12 insertions, 3 deletions
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index c3fd41ba..d3e07792 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -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 diff --git a/src/perl/common/Expando.xs b/src/perl/common/Expando.xs index d3a232f7..08f5c202 100644 --- a/src/perl/common/Expando.xs +++ b/src/perl/common/Expando.xs @@ -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; diff --git a/src/perl/common/Irssi.xs b/src/perl/common/Irssi.xs index 328e32d3..d0e82425 100644 --- a/src/perl/common/Irssi.xs +++ b/src/perl/common/Irssi.xs @@ -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 diff --git a/src/perl/common/module.h b/src/perl/common/module.h index 5456f630..07ecc56f 100644 --- a/src/perl/common/module.h +++ b/src/perl/common/module.h @@ -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; |