Mercurial > pidgin.yaz
diff plugins/perl/perl.c @ 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 | 294ae6548d4e |
children | f8e395a054e2 |
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;