# HG changeset patch
# User Sadrul Habib Chowdhury <imadil@gmail.com>
# Date 1220287501 0
# Node ID 1f92d4aa8f3bec4c1e210e56d1a591fa330f29fb
# Parent  1b882e539c40d0e3d13d3903000c2487957a8c48
Return FALSE when a perl plugin cannot be loaded.

diff -r 1b882e539c40 -r 1f92d4aa8f3b libpurple/plugins/perl/perl.c
--- a/libpurple/plugins/perl/perl.c	Mon Sep 01 16:17:17 2008 +0000
+++ b/libpurple/plugins/perl/perl.c	Mon Sep 01 16:45:01 2008 +0000
@@ -466,6 +466,7 @@
 load_perl_plugin(PurplePlugin *plugin)
 {
 	PurplePerlScript *gps = (PurplePerlScript *)plugin->info->extra_info;
+	gboolean loaded = TRUE;
 	char *atmp[3] = { plugin->path, NULL, NULL };
 
 	if (gps == NULL || gps->load_sub == NULL)
@@ -501,6 +502,7 @@
 			purple_debug(PURPLE_DEBUG_ERROR, "perl",
 			           "Perl function %s exited abnormally: %s\n",
 			           gps->load_sub, SvPVutf8_nolen(ERRSV));
+			loaded = FALSE;
 		}
 
 		PUTBACK;
@@ -508,7 +510,7 @@
 		LEAVE;
 	}
 
-	return TRUE;
+	return loaded;
 }
 
 static void