changeset 9578:7cd7da72c872

[gaim-migrate @ 10421] Fix a pretty good-sized problem that deryni pointed out in the Perl plugin. Basically, if a script didn't have an unload function set, the data, signals, timeouts, commands, etc. was remaining after the plugin was unloaded. This should be fixed now, barring any bizarre bugs that result from the simple change. committer: Tailor Script <tailor@pidgin.im>
author Christian Hammond <chipx86@chipx86.com>
date Fri, 23 Jul 2004 00:12:55 +0000
parents 4c36ffbdbf8d
children 41aa941c02e3
files plugins/perl/perl.c
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/plugins/perl/perl.c	Thu Jul 22 19:05:23 2004 +0000
+++ b/plugins/perl/perl.c	Fri Jul 23 00:12:55 2004 +0000
@@ -418,11 +418,12 @@
 {
 	GaimPerlScript *gps = (GaimPerlScript *)plugin->info->extra_info;
 
-	if (gps == NULL || gps->unload_sub == NULL)
+	if (gps == NULL)
 		return FALSE;
 
 	gaim_debug(GAIM_DEBUG_INFO, "perl", "Unloading perl script\n");
 
+	if (gps->unload_sub != NULL)
 	{
 		dSP;
 		ENTER;