| Server IP : 82.208.35.60 / Your IP : 216.73.216.238 Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31 System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64 User : studiokobylisy_cz ( 1008) PHP Version : 7.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/ports/editors/led/files/ |
Upload File : |
--- ./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);