Mercurial > pidgin

diff plugins/perl/perl-common.c @ 11290:b284c703d398

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 13490] Did some house cleaning on the code finished up some of the "TODO" stuff that was left over from when I originally did the XSUBs. Furthermore, the dynamically loaded Perl package problems should be corrected now that the context is set before one of the concurrent perl interpreters is run. committer: Tailor Script <tailor@pidgin.im>
author John H. Kelm <johnkelm@gmail.com>
date Thu, 18 Aug 2005 01:35:14 +0000
parents 0e9e2b923d09
children 519dc2186438
line wrap: on
line diff
--- 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;