pidgin: 3c2dd901: Return FALSE when a perl plugin cannot b...

[sadrul at pidgin.im]

-----------------------------------------------------------------
Revision: 3c2dd90178afe531235bacc7079755827230888b
Ancestor: 5e61928e783e6534485372c09fac5698e4b002af
Author: sadrul at pidgin.im
Date: 2008-09-01T16:45:01
Branch: im.pidgin.pidgin
URL: http://d.pidgin.im/viewmtn/revision/info/3c2dd90178afe531235bacc7079755827230888b

Modified files:
        libpurple/plugins/perl/perl.c

ChangeLog: 

Return FALSE when a perl plugin cannot be loaded.

-------------- next part --------------
============================================================
--- libpurple/plugins/perl/perl.c	c897085f683576fb602a4f5ca16ee7c4e3ad5de2
+++ libpurple/plugins/perl/perl.c	81dc5ab2c5239fb8d93c5b6dda4e4b258aa8ed4d
@@ -466,6 +466,7 @@ load_perl_plugin(PurplePlugin *plugin)
 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 @@ load_perl_plugin(PurplePlugin *plugin)
 			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 @@ load_perl_plugin(PurplePlugin *plugin)
 		LEAVE;
 	}
 
-	return TRUE;
+	return loaded;
 }
 
 static void