# HG changeset patch
# User Mark Doliner <mark@kingant.net>
# Date 1040096200 0
# Node ID 97003c0ef18412348d779c2a1ec7ddc51dd2be03
# Parent  5a1873bf47551384cb2aa26bcd5014e16ef0545a
[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>

diff -r 5a1873bf4755 -r 97003c0ef184 src/perl.c
--- 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;