Mercurial > pidgin

diff src/perl.c @ 2329:a6d0edc31554

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 2339] load perl on demand committer: Tailor Script <tailor@pidgin.im>
author Eric Warmenhoven <eric@warmenhoven.org>
date Thu, 20 Sep 2001 19:09:42 +0000
parents e243bf60f2d6
children a49e8f1afbc4
line wrap: on
line diff
--- a/src/perl.c	Thu Sep 20 19:03:57 2001 +0000
+++ b/src/perl.c	Thu Sep 20 19:09:42 2001 +0000
@@ -82,6 +82,7 @@
 static GList *perl_event_handlers = NULL;
 static PerlInterpreter *my_perl = NULL;
 static char* last_dir = NULL;
+static void perl_init();
 
 /* dealing with gaim */
 XS(XS_GAIM_register); /* set up hooks for script */
@@ -146,6 +147,8 @@
 int perl_load_file(char *script_name)
 {
 	SV *return_val;
+	if (my_perl == NULL)
+		perl_init();
 	return_val = execute_perl("load_file", script_name);
 	return SvNV (return_val);
 }
@@ -186,7 +189,7 @@
 	g_free(path);
 }
 
-void perl_init()
+static void perl_init()
 {
 	char *perl_args[] = {"", "-e", "0", "-w"};
 	char load_file[] =