comparison src/perl.c @ 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 <[e-mail]>

4087:5a1873bf4755

		scp = pl->data;
		if (scp->plug == plug) {
			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 = perl_timeout_handlers;
	while (pl) {
		thn = pl->data;

4088:97003c0ef184

		scp = pl->data;
		if (scp->plug == plug) {
			perl_list = g_list_remove(perl_list, scp);
			if (scp->shutdowncallback[0])
				execute_perl(scp->shutdowncallback, atmp);
			g_free(scp->name);
			g_free(scp->version);
			g_free(scp->shutdowncallback);
			g_free(scp);	
			break;
		}
		pl = pl->next;
	}

	pl = perl_timeout_handlers;
	while (pl) {
		thn = pl->data;