svn commit: r333766 - head/editors/led/files

[Mathieu Arnold]

Author: mat
Date: Thu Nov 14 15:52:01 2013
New Revision: 333766
URL: http://svnweb.freebsd.org/changeset/ports/333766

Log:
  Fix build with threaded perl.

Added:
  head/editors/led/files/patch-src__modules__perlapi__perlapi.c   (contents, props changed)

Added: head/editors/led/files/patch-src__modules__perlapi__perlapi.c
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/editors/led/files/patch-src__modules__perlapi__perlapi.c	Thu Nov 14 15:52:01 2013	(r333766)
@@ -0,0 +1,26 @@
+--- ./src/modules/perlapi/perlapi.c.orig	2002-02-14 22:07:31.000000000 +0100
++++ ./src/modules/perlapi/perlapi.c	2013-11-14 16:41:36.000000000 +0100
+@@ -36,6 +36,7 @@
+ /* extension module support */
+ static void xs_init() {
+ 	char *file = __FILE__;
++	dTHX;
+ 
+ 	newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
+ 	newXS("Led::bootstrap", boot_Led, file);
+@@ -66,6 +67,7 @@
+ 	char *args[] = { "", "-e", "" };
+ 	char *bootargs[] = { "Led", 0 };
+ 	u_char *expath;
++	dTHX;
+ 
+ 	/* add perl commands to the editor */
+ 	command_addf("perl_eval", input_allocsyms(1), perlapi_doeval);
+@@ -124,6 +126,7 @@
+ /* evaluate some perl */
+ void perlapi_eval(u_char *string) {
+ 	SV *sv;
++	dTHX;
+ 
+ 	sv = newSVpv(string, 0);
+ 	perl_eval_sv(sv, G_DISCARD | G_NOARGS);