diff options
| author | Emanuele Giaquinta <exg@irssi.org> | 2009-01-17 22:28:47 +0000 |
|---|---|---|
| committer | exg <exg@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2009-01-17 22:28:47 +0000 |
| commit | 822e6caee88f70f18164743a856986cd85014334 (patch) | |
| tree | fb58bd3d53db34198484c0cccb9f1ee10da96d99 /src/perl/perl-core.c | |
| parent | 2129c4b2295ac89f0c4d25a9fab8251b353b85cd (diff) | |
| download | irssi-822e6caee88f70f18164743a856986cd85014334.zip | |
Revert r4871, it breaks /script reset.
git-svn-id: file:///var/www/svn.irssi.org/SVN/irssi/trunk@4992 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-core.c')
| -rw-r--r-- | src/perl/perl-core.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c index 33d8a2bf..4b837016 100644 --- a/src/perl/perl-core.c +++ b/src/perl/perl-core.c @@ -111,20 +111,17 @@ static void xs_init(pTHX) /* Initialize perl interpreter */ void perl_scripts_init(void) { - char *argarray[] = {"", "-e", "0"}; - char **args = argarray; - int argc = 3; + char *args[] = {"", "-e", "0"}; char *code, *use_code; perl_scripts = NULL; perl_sources_start(); perl_signals_start(); - PERL_SYS_INIT3(&argc, &args, &environ); my_perl = perl_alloc(); perl_construct(my_perl); - perl_parse(my_perl, xs_init, argc, args, NULL); + perl_parse(my_perl, xs_init, 3, args, NULL); #if PERL_STATIC_LIBS == 1 perl_eval_pv("Irssi::Core::boot_Irssi_Core();", TRUE); #endif @@ -168,7 +165,6 @@ void perl_scripts_deinit(void) PL_perl_destruct_level = 1; perl_destruct(my_perl); perl_free(my_perl); - PERL_SYS_TERM(); my_perl = NULL; } |