diff -r d2b5c786aac3 -r 13fa1d5134f3 plugins/perl/perl.c
--- 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);