Mercurial > pidgin
diff plugins/perl/perl.c @ 11318:519dc2186438
[gaim-migrate @ 13521]
Bits and pieces all over the place. I was hunting down compiler warnings
all over the place, with crazy CFLAGS. I think I might have got a bit
carried away.
I made the perl stuff compile with gcc 2.x (which don't support
mixed declerations and statements), I think what I did was safe but
readily admit I have no clue how all the perl stuff works.
Rename gaim_presence_add_presence() to gaim_presence_add_list() (to match
the header file - obviously nothing actually _uses_ this)
Implement gaim_savedstatus_get_handle() because it's in the header file.
Remove gaim_account_set_presence() from account.h - it's not actually
implemented anywhere, so it can't be that important.
committer: Tailor Script <tailor@pidgin.im>
author | Stu Tomlinson <stu@nosnilmot.com> |
---|---|
date | Sat, 20 Aug 2005 20:17:08 +0000 |
parents | b284c703d398 |
children | cdd941172951 |
line wrap: on
line diff
--- a/plugins/perl/perl.c Fri Aug 19 20:06:37 2005 +0000 +++ b/plugins/perl/perl.c Sat Aug 20 20:17:08 2005 +0000 @@ -404,8 +404,9 @@ execute_perl("Gaim::PerlLoader::load_n_eval", 2, atmp); { + dSP; PERL_SET_CONTEXT(my_perl); - dSP; + SPAGAIN; ENTER; SAVETMPS; PUSHMARK(sp); @@ -434,8 +435,9 @@ static void destroy_package(const char *package) { - PERL_SET_CONTEXT(my_perl); dSP; + PERL_SET_CONTEXT(my_perl); + SPAGAIN; ENTER; SAVETMPS; @@ -466,8 +468,9 @@ if (gps->unload_sub != NULL) { - PERL_SET_CONTEXT(my_perl); dSP; + PERL_SET_CONTEXT(my_perl); + SPAGAIN; ENTER; SAVETMPS; PUSHMARK(sp);