plugins/perl/common/Cmds.xs

Mon, 31 Oct 2005 05:40:35 +0000

author
Mark Doliner <markdoliner@pidgin.im>
date
Mon, 31 Oct 2005 05:40:35 +0000
changeset 11924
a42748d67df3
parent 11290
136722ebf145
child 12882
44dfc6467081
permissions
-rw-r--r--

[gaim-migrate @ 14215]
This seems to fix a crash for me when going offline --> online --> offline
--> online with an AIM account.

See the backtrace at http://nosnilmot.com/nopaste/296

#include "module.h"

MODULE = Gaim::Cmds  PACKAGE = Gaim::Cmds  PREFIX = gaim_cmd_
PROTOTYPES: ENABLE

void
gaim_cmd_help(conv, cmd)
	Gaim::Conversation conv
	const gchar *cmd
PREINIT:
        GList *l;
PPCODE:
        for (l = gaim_cmd_help(conv, cmd); l != NULL; l = l->next) {
                XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListEntry")));
        }

void
gaim_cmd_list(conv)
	Gaim::Conversation conv
PREINIT:
        GList *l;
PPCODE:
        for (l = gaim_cmd_list(conv); l != NULL; l = l->next) {
                XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListEntry")));
        }

void 
gaim_cmd_unregister(id)
	Gaim::CmdId id

mercurial