From owner-svn-ports-all@FreeBSD.ORG  Thu Nov 14 15:52:01 2013
Return-Path: <owner-svn-ports-all@FreeBSD.ORG>
Delivered-To: svn-ports-all@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org
 [IPv6:2001:1900:2254:206a::19:1])
 (using TLSv1 with cipher ADH-AES256-SHA (256/256 bits))
 (No client certificate requested)
 by hub.freebsd.org (Postfix) with ESMTPS id 94C1F998;
 Thu, 14 Nov 2013 15:52:01 +0000 (UTC)
Received: from svn.freebsd.org (svn.freebsd.org
 [IPv6:2001:1900:2254:2068::e6a:0])
 (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits))
 (No client certificate requested)
 by mx1.freebsd.org (Postfix) with ESMTPS id 83C15260F;
 Thu, 14 Nov 2013 15:52:01 +0000 (UTC)
Received: from svn.freebsd.org ([127.0.1.70])
 by svn.freebsd.org (8.14.7/8.14.7) with ESMTP id rAEFq1Sn082977;
 Thu, 14 Nov 2013 15:52:01 GMT (envelope-from mat@svn.freebsd.org)
Received: (from mat@localhost)
 by svn.freebsd.org (8.14.7/8.14.5/Submit) id rAEFq1O2082976;
 Thu, 14 Nov 2013 15:52:01 GMT (envelope-from mat@svn.freebsd.org)
Message-Id: <201311141552.rAEFq1O2082976@svn.freebsd.org>
From: Mathieu Arnold <mat@FreeBSD.org>
Date: Thu, 14 Nov 2013 15:52:01 +0000 (UTC)
To: ports-committers@freebsd.org, svn-ports-all@freebsd.org,
 svn-ports-head@freebsd.org
Subject: svn commit: r333766 - head/editors/led/files
X-SVN-Group: ports-head
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-BeenThere: svn-ports-all@freebsd.org
X-Mailman-Version: 2.1.16
Precedence: list
List-Id: SVN commit messages for the ports tree <svn-ports-all.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/options/svn-ports-all>,
 <mailto:svn-ports-all-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/svn-ports-all/>
List-Post: <mailto:svn-ports-all@freebsd.org>
List-Help: <mailto:svn-ports-all-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/svn-ports-all>,
 <mailto:svn-ports-all-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Thu, 14 Nov 2013 15:52:01 -0000

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);