[Gaim-commits] CVS: gaim/src perl.c,1.78,1.79

[Sean E. <sea...@us...>]

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);