Mercurial > pidgin.yaz

comparison src/perl.c @ 3556:4d70a24c0fd6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 3646] No more death by perl. committer: Tailor Script <tailor@pidgin.im>
author Sean Egan <seanegan@gmail.com>
date Thu, 26 Sep 2002 16:51:46 +0000
parents cd938f18f3f8
children e120097bbd72
comparison
equal deleted inserted replaced
3555:5b3a3c6efbec 3556:4d70a24c0fd6
323 { 323 {
324 dSP; 324 dSP;
325 ENTER; 325 ENTER;
326 SAVETMPS; 326 SAVETMPS;
327 PUSHMARK(SP); 327 PUSHMARK(SP);
328 count =perl_call_pv("description", G_NOARGS | G_ARRAY); 328
329 count = perl_call_pv("description", G_NOARGS | G_ARRAY | G_EVAL);
329 SPAGAIN; 330 SPAGAIN;
330 331 debug_printf("desc: %d char: %d count: %d\n", sizeof(struct gaim_plugin_description), sizeof(char*), count);
331 if (count = sizeof(struct gaim_plugin_description) / sizeof(char*)) { 332 if (count == (sizeof(struct gaim_plugin_description) - sizeof(int)) / sizeof(char*)) {
332 plug = g_new0(struct gaim_plugin, 1); 333 plug = g_new0(struct gaim_plugin, 1);
333 plug->type = perl_script; 334 plug->type = perl_script;
334 g_snprintf(plug->path, sizeof(plug->path), filename); 335 g_snprintf(plug->path, sizeof(plug->path), filename);
335 plug->desc.iconfile = g_strdup(POPp); 336 plug->desc.iconfile = g_strdup(POPp);
336 plug->desc.url = g_strdup(POPp); 337 plug->desc.url = g_strdup(POPp);