diff options
| author | Jilles Tjoelker <jilles@irssi.org> | 2009-01-15 22:21:31 +0000 |
|---|---|---|
| committer | jilles <jilles@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2009-01-15 22:21:31 +0000 |
| commit | d993ce7b06e105aba6196ad8caeb0991d2111c01 (patch) | |
| tree | 20adcf8389c9cb5e78122c79071332cc0c6b7744 /src | |
| parent | 57282ee557a4759666df55f54a746d14e8fedacf (diff) | |
| download | irssi-d993ce7b06e105aba6196ad8caeb0991d2111c01.zip | |
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
Diffstat (limited to 'src')
| -rw-r--r-- | src/perl/perl-core.c | 3 |
1 files changed, 2 insertions, 1 deletions
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; |