From 6e01a2313439bb02a66a52db645f63f078c2c4b0 Mon Sep 17 00:00:00 2001
From: ailin-nemui <ailin-nemui@users.noreply.github.com>
Date: Sun, 13 Dec 2015 01:08:53 +0100
Subject: [PATCH] ensure staticlib perl works on 5.22 (for now)

---
 src/perl/perl-common.c | 3 ---
 src/perl/perl-core.c   | 2 +-
 2 files changed, 1 insertion(+), 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();