Mercurial > pidgin.yaz
changeset 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 | 5b3a3c6efbec |
| children | 1f026237d819 |
| files | src/perl.c |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/perl.c Thu Sep 26 15:42:14 2002 +0000 +++ b/src/perl.c Thu Sep 26 16:51:46 2002 +0000 @@ -325,10 +325,11 @@ ENTER; SAVETMPS; PUSHMARK(SP); - count =perl_call_pv("description", G_NOARGS | G_ARRAY); + + count = perl_call_pv("description", G_NOARGS | G_ARRAY | G_EVAL); SPAGAIN; - - if (count = sizeof(struct gaim_plugin_description) / sizeof(char*)) { + debug_printf("desc: %d char: %d count: %d\n", sizeof(struct gaim_plugin_description), sizeof(char*), count); + if (count == (sizeof(struct gaim_plugin_description) - sizeof(int)) / sizeof(char*)) { plug = g_new0(struct gaim_plugin, 1); plug->type = perl_script; g_snprintf(plug->path, sizeof(plug->path), filename);