# HG changeset patch
# User Christian Hammond <chipx86@chipx86.com>
# Date 1090541575 0
# Node ID 7cd7da72c872c0e5b28c419c21238e725b04b4dc
# Parent  4c36ffbdbf8d504fa2fbde60ce4431860223bb75
[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>

diff -r 4c36ffbdbf8d -r 7cd7da72c872 plugins/perl/perl.c
--- 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;