aniani/elinks
1
0
Fork 0
mirror of https://github.com/rkd77/elinks.git synced 2024-10-01 03:36:26 -04:00
Code

[perl] Show version

Browse Source
This commit is contained in:
Witold Filipczyk 2022-01-07 18:35:15 +01:00
parent 0d5dbbd148
commit d302b29d22
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/scripting/perl/core.c
View File

@ -83,6 +83,8 @@ xs_init(pTHX)
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, __FILE__);
}
static char elperlversion[32];
void
init_perl(struct module *module)
{
@ -120,6 +122,10 @@ init_perl(struct module *module)
#ifdef PERL_EXIT_DESTRUCT_END
PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
#endif
snprintf(elperlversion, 31, "Perl %s", PERL_VERSION_STRING);
module->name = elperlversion;
if (!err) err = perl_run(my_perl);
if (err) precleanup_perl(module);
}