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
This commit is contained in:
Timo Sirainen 2001-10-20 13:19:25 +00:00 committed by cras
commit a5b32b70a7
12 changed files with 81 additions and 6 deletions

View file

@ -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);
}