[gaim-migrate @ 10421]

Fri, 23 Jul 2004 00:12:55 +0000

author
Christian Hammond <chipx86@chipx86.com>
date
Fri, 23 Jul 2004 00:12:55 +0000
changeset 9578
d02c3d247fb7
parent 9577
eacf12cbb519
child 9579
b7889f083ff0

[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.

plugins/perl/perl.c file | annotate | diff | comparison | revisions
--- 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;

mercurial