aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-11-03 04:27:19 -05:00
Code

Merge pull request #382 from ailin-nemui/staticperl

Browse Source 
ensure staticlib perl works on 5.22
This commit is contained in:
dx 2015-12-14 10:27:39 -03:00
commit 7b69b98812
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/perl/perl-common.c
View File

@ -246,10 +246,7 @@ char *perl_get_use_list(void)
void irssi_callXS(void (*subaddr)(pTHX_ CV* cv), CV *cv, SV **mark) void irssi_callXS(void (*subaddr)(pTHX_ CV* cv), CV *cv, SV **mark)
{ {
dSP;
PUSHMARK(mark); PUSHMARK(mark);
PUTBACK;
(*subaddr)(aTHX_ cv); (*subaddr)(aTHX_ cv);
} }

2
src/perl/perl-core.c
View File

@ -125,7 +125,7 @@ void perl_scripts_init(void)
perl_parse(my_perl, xs_init, G_N_ELEMENTS(perl_args), perl_args, NULL); perl_parse(my_perl, xs_init, G_N_ELEMENTS(perl_args), perl_args, NULL);
#if PERL_STATIC_LIBS == 1 #if PERL_STATIC_LIBS == 1
perl_eval_pv("Irssi::Core::boot_Irssi_Core();", TRUE); perl_eval_pv("Irssi::Core::->boot_Irssi_Core(0.9);", TRUE);
#endif #endif
perl_common_start(); perl_common_start();