1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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);
|
