Update of /cvsroot/gaim/gaim/src
In directory usw-pr-cvs1:/tmp/cvs-serv17646/src
Modified Files:
perl.c
Log Message:
No more death by perl.
Index: perl.c
===================================================================
RCS file: /cvsroot/gaim/gaim/src/perl.c,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -d -r1.78 -r1.79
--- perl.c 26 Sep 2002 07:37:52 -0000 1.78
+++ perl.c 26 Sep 2002 16:51:46 -0000 1.79
@@ -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);
|
