diff -r 90e0133137e7 -r 136722ebf145 plugins/perl/perl-common.c
--- a/plugins/perl/perl-common.c	Wed Aug 17 21:42:28 2005 +0000
+++ b/plugins/perl/perl-common.c	Thu Aug 18 01:35:14 2005 +0000
@@ -178,7 +178,7 @@
 	int count = 0, i, ret_value = 1;
 	SV *sv_args[argc];
 	STRLEN na;
-
+        PERL_SET_CONTEXT(my_perl);
 	/*
 	 * Set up the perl environment, push arguments onto the
 	 * perl stack, then call the given function
@@ -196,6 +196,7 @@
 	}
 
 	PUTBACK;
+        PERL_SET_CONTEXT(my_perl);
 	count = call_pv(function, G_EVAL | G_SCALAR);
 	SPAGAIN;