diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-10-20 13:19:25 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-10-20 13:19:25 +0000 |
| commit | a5b32b70a7db8ce41a37d9ee6fdef85300130351 (patch) | |
| tree | e02a223f3a9fe2e84148a7de6cc282560476f14a /src/perl/perl-fe.c | |
| parent | 476b5ec863c49bb9a85eda23fbba31cf0d3a443c (diff) | |
| download | irssi-a5b32b70a7db8ce41a37d9ee6fdef85300130351.zip | |
Added API version check between perl module and perl libs.
perl_scripts_deinit() now destroys all dynamically loaded libraries (Irssi,
Irssi::Irc, Irssi::UI too) so /UNLOAD perl should now release more memory,
this also makes /unload perl, /load perl work again.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1859 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-fe.c')
| -rw-r--r-- | src/perl/perl-fe.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/perl/perl-fe.c b/src/perl/perl-fe.c index 27ac154b..ee19c5a2 100644 --- a/src/perl/perl-fe.c +++ b/src/perl/perl-fe.c @@ -232,6 +232,7 @@ void fe_perl_init(void) signal_add("complete command script load", (SIGNAL_FUNC) sig_complete_load); signal_add("complete command script unload", (SIGNAL_FUNC) sig_complete_unload); + perl_core_print_script_error(FALSE); module_register("perl", "fe"); } @@ -247,4 +248,6 @@ void fe_perl_deinit(void) signal_remove("script error", (SIGNAL_FUNC) sig_script_error); signal_remove("complete command script load", (SIGNAL_FUNC) sig_complete_load); signal_remove("complete command script unload", (SIGNAL_FUNC) sig_complete_unload); + + perl_core_print_script_error(TRUE); } |