Mercurial > pidgin
comparison src/perl.c @ 3556:4d70a24c0fd6
[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); |