# HG changeset patch
# User Sean Egan <seanegan@gmail.com>
# Date 1033059106 0
# Node ID 4d70a24c0fd624e129575ee74dd879c96d792942
# Parent  5b3a3c6efbec2a66cff3260e05123e8b6599f418
[gaim-migrate @ 3646]
No more death by perl.

committer: Tailor Script <tailor@pidgin.im>

diff -r 5b3a3c6efbec -r 4d70a24c0fd6 src/perl.c
--- 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);