diff options
author | Timo Sirainen <cras@irssi.org> | 2001-08-07 15:25:41 +0000 |
---|---|---|
committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-08-07 15:25:41 +0000 |
commit | b80d4e62ab1c8eec62c13cbb9966429914f3a9f5 (patch) | |
tree | 9d559a4b7ad855e948c4bc5733dca5f9569a0191 /src/perl/perl-core.c | |
parent | 1db558b8ea0f283d63567ee17a625fd5cf6a08a1 (diff) | |
download | irssi-b80d4e62ab1c8eec62c13cbb9966429914f3a9f5.zip |
/SCRIPT RESET didn't work properly (start/stop functions were called in
wrong order). Added a few extra deinits.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1712 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-core.c')
-rw-r--r-- | src/perl/perl-core.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c index cadc0c4b..b6fce2c1 100644 --- a/src/perl/perl-core.c +++ b/src/perl/perl-core.c @@ -94,14 +94,14 @@ void perl_scripts_init(void) perl_parse(my_perl, xs_init, 3, args, NULL); + perl_common_start(); + use_code = perl_get_use_list(); code = g_strdup_printf(irssi_core_code, use_code); perl_eval_pv(code, TRUE); g_free(code); g_free(use_code); - - perl_common_start(); } /* Destroy all perl scripts and deinitialize perl interpreter */ |