diff --git a/src/fe-none/irssi.c b/src/fe-none/irssi.c
index 2922a00c..eee24365 100644
--- a/src/fe-none/irssi.c
+++ b/src/fe-none/irssi.c
@@ -67,11 +67,11 @@ void noui_init(void)
 	signal_add("reload", (SIGNAL_FUNC) sig_reload);
 	signal_add("gui exit", (SIGNAL_FUNC) sig_exit);
 
-	signal_emit("irssi init finished", 0);
-
 #ifdef HAVE_STATIC_PERL
         perl_core_init();
 #endif
+
+	signal_emit("irssi init finished", 0);
 }
 
 void noui_deinit(void)
diff --git a/src/fe-text/irssi.c b/src/fe-text/irssi.c
index 900fcf8c..88c47c5d 100644
--- a/src/fe-text/irssi.c
+++ b/src/fe-text/irssi.c
@@ -135,15 +135,15 @@ static void textui_finish_init(void)
 	settings_check();
 	module_register("core", "fe-text");
 
-	fe_common_core_finish_init();
-
-	signal_emit("irssi init finished", 0);
-
 #ifdef HAVE_STATIC_PERL
 	perl_core_init();
 	fe_perl_init();
 #endif
 
+	fe_common_core_finish_init();
+
+	signal_emit("irssi init finished", 0);
+
 	if (display_firsttimer) {
 		printtext_window(active_win, MSGLEVEL_CLIENTNOTICE,
 				 "%s", firsttimer_text);