Mercurial > pidgin3 / file 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;