Fix build with threaded perl.
This commit is contained in:
parent
a4625901b2
commit
92133aad6f
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=333766
26
editors/led/files/patch-src__modules__perlapi__perlapi.c
Normal file
26
editors/led/files/patch-src__modules__perlapi__perlapi.c
Normal file
@ -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);
|
Loading…
Reference in New Issue
Block a user