From d74313b36822cc2e281de1782070520e3d19e931 Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Thu, 24 Aug 2000 00:57:26 +0000 Subject: [PATCH] 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 --- src/perl/irssi-perl.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/perl/irssi-perl.c b/src/perl/irssi-perl.c index 0b689c79..af2709ea 100644 --- a/src/perl/irssi-perl.c +++ b/src/perl/irssi-perl.c @@ -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))); }