From 92133aad6fb9d554d587fbcd75fa8c5b88da8459 Mon Sep 17 00:00:00 2001
From: Mathieu Arnold <mat@FreeBSD.org>
Date: Thu, 14 Nov 2013 15:52:01 +0000
Subject: [PATCH] Fix build with threaded perl.

---
 .../patch-src__modules__perlapi__perlapi.c    | 26 +++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 editors/led/files/patch-src__modules__perlapi__perlapi.c

diff --git a/editors/led/files/patch-src__modules__perlapi__perlapi.c b/editors/led/files/patch-src__modules__perlapi__perlapi.c
new file mode 100644
index 000000000000..0804d6393d73
--- /dev/null
+++ b/editors/led/files/patch-src__modules__perlapi__perlapi.c
@@ -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);