Ejemplo n.º 1
0
void perl_core_deinit(void)
{
        perl_scripts_deinit();
	perl_signals_deinit();

	signal_remove("script error", (SIGNAL_FUNC) sig_script_error);
}
Ejemplo n.º 2
0
Archivo: perl-fe.c Proyecto: ahf/irssi
static void cmd_script_reset(const char *data)
{
	void *free_arg;
	GHashTable *optlist;

	if (!cmd_get_params(data, &free_arg, 0 | PARAM_FLAG_OPTIONS,
			    "script reset", &optlist))
		return;

	perl_scripts_deinit();
	perl_scripts_init();

	if (g_hash_table_lookup(optlist, "autorun") != NULL)
		perl_scripts_autorun();

	cmd_params_free(free_arg);
}
Ejemplo n.º 3
0
static void cmd_script_reset(const char *data)
{
	perl_scripts_deinit();
	perl_scripts_init();
}