Mercurial > pidgin

comparison plugins/perl/perl.c @ 6531:7c42b8ca3222

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 7048] Added a buddy list API to perl. Untested. Should work, which is why it won't. committer: Tailor Script <tailor@pidgin.im>
author Christian Hammond <chipx86@chipx86.com>
date Thu, 21 Aug 2003 00:06:15 +0000
parents aa86c48d77c7
children 9767117bc47e
comparison
equal deleted inserted replaced
6530:e05a54da64db 6531:7c42b8ca3222
77 #endif 77 #endif
78 78
79 #include "internal.h" 79 #include "internal.h"
80 #include "debug.h" 80 #include "debug.h"
81 #include "plugin.h" 81 #include "plugin.h"
82 #include "signals.h"
82 83
83 #include "perl-common.h" 84 #include "perl-common.h"
84 #include "perl-handlers.h" 85 #include "perl-handlers.h"
85 86
86 #define PERL_PLUGIN_ID "core-perl" 87 #define PERL_PLUGIN_ID "core-perl"
200 { 201 {
201 /* XXX This would be much faster if I didn't create a new 202 /* XXX This would be much faster if I didn't create a new
202 * PerlInterpreter every time I probed a plugin */ 203 * PerlInterpreter every time I probed a plugin */
203 PerlInterpreter *prober = perl_alloc(); 204 PerlInterpreter *prober = perl_alloc();
204 char *argv[] = {"", plugin->path }; 205 char *argv[] = {"", plugin->path };
205 int count;
206 gboolean status = TRUE; 206 gboolean status = TRUE;
207 HV *plugin_info; 207 HV *plugin_info;
208 208
209 perl_construct(prober); 209 perl_construct(prober);
210 perl_parse(prober, xs_init, 2, argv, NULL); 210 perl_parse(prober, xs_init, 2, argv, NULL);