1
0
mirror of https://github.com/irssi/irssi.git synced 2024-06-16 06:25:24 +00:00

Signals that sent GSList as parameters didn't work right with perl scripts

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@624 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-08-24 00:57:26 +00:00 committed by cras
parent cac3d29be9
commit d74313b368

View File

@ -549,11 +549,11 @@ static int call_perl(const char *func, int signal, va_list va)
XPUSHs(sv_2mortal(newSViv(GPOINTER_TO_INT(arg))));
else if (strcmp(rec->args[n], "ulongptr") == 0)
XPUSHs(sv_2mortal(newSViv(*(gulong *) arg)));
else if (strncmp(rec->args[n], "glist_", 6) == 0)
else if (strncmp(rec->args[n], "gslist_", 7) == 0)
{
GSList *tmp;
stash = gv_stashpv(rec->args[n]+6, 0);
stash = gv_stashpv(rec->args[n]+7, 0);
for (tmp = arg; tmp != NULL; tmp = tmp->next)
XPUSHs(sv_2mortal(sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(tmp->data))), stash)));
}