Mercurial > pidgin
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 <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Tue, 17 Dec 2002 03:36:40 +0000 |
parents | 9438d2e96cb1 |
children | a614423c648f |
comparison
equal
deleted
inserted
replaced
4087:5a1873bf4755 | 4088:97003c0ef184 |
---|---|
260 scp = pl->data; | 260 scp = pl->data; |
261 if (scp->plug == plug) { | 261 if (scp->plug == plug) { |
262 perl_list = g_list_remove(perl_list, scp); | 262 perl_list = g_list_remove(perl_list, scp); |
263 if (scp->shutdowncallback[0]) | 263 if (scp->shutdowncallback[0]) |
264 execute_perl(scp->shutdowncallback, atmp); | 264 execute_perl(scp->shutdowncallback, atmp); |
265 perl_list = g_list_remove(perl_list, scp); | |
266 g_free(scp->name); | 265 g_free(scp->name); |
267 g_free(scp->version); | 266 g_free(scp->version); |
268 g_free(scp->shutdowncallback); | 267 g_free(scp->shutdowncallback); |
269 g_free(scp); | 268 g_free(scp); |
270 break; | 269 break; |
271 } | 270 } |
271 pl = pl->next; | |
272 } | 272 } |
273 | 273 |
274 pl = perl_timeout_handlers; | 274 pl = perl_timeout_handlers; |
275 while (pl) { | 275 while (pl) { |
276 thn = pl->data; | 276 thn = pl->data; |