mirror of
https://git.freebsd.org/ports.git
synced 2025-06-07 13:50:38 -04:00
26 lines
758 B
C
26 lines
758 B
C
--- ./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);
|