changeset 4088:97003c0ef184

[gaim-migrate @ 4303] Sean Eganagain, he played nick nack on my chin again With a nick nack, paddy wack, give the dog a bone This old man came rolling home This should fix an occasional infinite loop from unloading perl scripts when you have multiple scripts loaded. committer: Tailor Script <tailor@pidgin.im>
author Mark Doliner <mark@kingant.net>
date Tue, 17 Dec 2002 03:36:40 +0000
parents 5a1873bf4755
children 7f4f3aa61069
files src/perl.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/perl.c	Mon Dec 16 22:24:26 2002 +0000
+++ b/src/perl.c	Tue Dec 17 03:36:40 2002 +0000
@@ -262,13 +262,13 @@
 			perl_list = g_list_remove(perl_list, scp);
 			if (scp->shutdowncallback[0])
 				execute_perl(scp->shutdowncallback, atmp);
-			perl_list = g_list_remove(perl_list, scp);
 			g_free(scp->name);
 			g_free(scp->version);
 			g_free(scp->shutdowncallback);
 			g_free(scp);	
 			break;
 		}
+		pl = pl->next;
 	}
 
 	pl = perl_timeout_handlers;