aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-11-03 04:27:19 -05:00
Code

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

Browse Source 
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
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/perl/irssi-perl.c
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)))); XPUSHs(sv_2mortal(newSViv(GPOINTER_TO_INT(arg))));
else if (strcmp(rec->args[n], "ulongptr") == 0) else if (strcmp(rec->args[n], "ulongptr") == 0)
XPUSHs(sv_2mortal(newSViv(*(gulong *) arg))); 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; 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) for (tmp = arg; tmp != NULL; tmp = tmp->next)
XPUSHs(sv_2mortal(sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(tmp->data))), stash))); XPUSHs(sv_2mortal(sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(tmp->data))), stash)));
} }