zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-16 23:22:16 +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

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;