diff plugins/perl/perl-common.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 <[e-mail]>

--- a/plugins/perl/perl-common.c	Fri Aug 19 20:06:37 2005 +0000
+++ b/plugins/perl/perl-common.c	Sat Aug 20 20:17:08 2005 +0000
@@ -34,7 +34,7 @@
 
 static MGVTBL vtbl_free_object =
 {
-	NULL, NULL, NULL, NULL, magic_free_object
+	NULL, NULL, NULL, NULL, magic_free_object, NULL, NULL
 };
 
 static SV *
@@ -178,12 +178,13 @@
 	int count = 0, i, ret_value = 1;
 	SV *sv_args[argc];
 	STRLEN na;
-        PERL_SET_CONTEXT(my_perl);
+	dSP;
+	PERL_SET_CONTEXT(my_perl);
 	/*
 	 * Set up the perl environment, push arguments onto the
 	 * perl stack, then call the given function
 	 */
-	dSP;
+	SPAGAIN;
 	ENTER;
 	SAVETMPS;
 	PUSHMARK(sp);