From d993ce7b06e105aba6196ad8caeb0991d2111c01 Mon Sep 17 00:00:00 2001
From: Jilles Tjoelker <jilles@irssi.org>
Date: Thu, 15 Jan 2009 22:21:31 +0000
Subject: Use PERL_SYS_INIT3 with the correct pointer type for argv. This fixes
 perl crashes on startup on some machines.

git-svn-id: file:///var/www/svn.irssi.org/SVN/irssi/trunk@4989 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/perl-core.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c
index e7b59eb8..836d52e6 100644
--- a/src/perl/perl-core.c
+++ b/src/perl/perl-core.c
@@ -111,7 +111,8 @@ static void xs_init(pTHX)
 /* Initialize perl interpreter */
 void perl_scripts_init(void)
 {
-	char *args[] = {"", "-e", "0"};
+	char *argarray[] = {"", "-e", "0"};
+	char **args = argarray;
 	int argc = 3;
 	char *code, *use_code;
 
-- 
cgit v1.2.3