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