diff options
| author | ailin-nemui <ailin-nemui@users.noreply.github.com> | 2015-12-13 01:08:53 +0100 |
|---|---|---|
| committer | ailin-nemui <ailin-nemui@users.noreply.github.com> | 2015-12-13 01:09:13 +0100 |
| commit | 6e01a2313439bb02a66a52db645f63f078c2c4b0 (patch) | |
| tree | 1852712a994abf2c1c7661622b476b9d078f9365 /src/perl | |
| parent | 4dd7f2b18f9895e440e84c563cfd5c997cac317f (diff) | |
| download | irssi-6e01a2313439bb02a66a52db645f63f078c2c4b0.zip | |
ensure staticlib perl works on 5.22 (for now)
Diffstat (limited to 'src/perl')
| -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(); |