src/module.c

changeset 3565
66a8f8dcaacc
parent 3563
ea2789c8077c
child 3572
d07e14aa6f26
--- a/src/module.c	Sat Sep 28 17:46:10 2002 +0000
+++ b/src/module.c	Sat Sep 28 21:39:45 2002 +0000
@@ -89,10 +89,10 @@
 	struct gaim_plugin *plug;
 	char userspace[128];
 	char *probedirs[] = {LIBDIR, &userspace, 0};
+	int l;
 #if GAIM_PLUGINS     
 	char *(*gaim_plugin_init)(GModule *);
 	char *(*cfunc)();
-	int l;
 	struct gaim_plugin_description *(*desc)();
 	GModule *handle;
 #endif
@@ -167,9 +167,11 @@
 	if (!filename || !strlen(filename))
 		return NULL;
 
+#ifdef USE_PERL
 	if (is_so_file(filename, ".pl")) {
 		return perl_load_file(filename);
 	}
+#endif
 
 	while (filename && p) {
 		plug = (struct gaim_plugin *)p->data;

mercurial