diff options
| author | dx <dx@dxzone.com.ar> | 2015-12-14 10:27:39 -0300 |
|---|---|---|
| committer | dx <dx@dxzone.com.ar> | 2015-12-14 10:27:39 -0300 |
| commit | 7b69b98812c2be31dcd1875fc2ef90a20af8a15e (patch) | |
| tree | 1852712a994abf2c1c7661622b476b9d078f9365 /src | |
| parent | 4dd7f2b18f9895e440e84c563cfd5c997cac317f (diff) | |
| parent | 6e01a2313439bb02a66a52db645f63f078c2c4b0 (diff) | |
| download | irssi-7b69b98812c2be31dcd1875fc2ef90a20af8a15e.zip | |
Merge pull request #382 from ailin-nemui/staticperl
ensure staticlib perl works on 5.22
Diffstat (limited to 'src')
| -rw-r--r-- | src/perl/perl-common.c | 3 | ||||
| -rw-r--r-- | src/perl/perl-core.c | 2 |
2 files changed, 1 insertions, 4 deletions
diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c index d7a428e5..b641867f 100644 --- a/src/perl/perl-common.c +++ b/src/perl/perl-common.c @@ -246,10 +246,7 @@ char *perl_get_use_list(void) void irssi_callXS(void (*subaddr)(pTHX_ CV* cv), CV *cv, SV **mark) { - dSP; - PUSHMARK(mark); - PUTBACK; (*subaddr)(aTHX_ cv); } diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c index 2c0ca49d..1a864ef7 100644 --- a/src/perl/perl-core.c +++ b/src/perl/perl-core.c @@ -125,7 +125,7 @@ void perl_scripts_init(void) perl_parse(my_perl, xs_init, G_N_ELEMENTS(perl_args), perl_args, NULL); #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 perl_common_start(); |