diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c
index e4bde559..39389157 100644
--- a/src/perl/perl-core.c
+++ b/src/perl/perl-core.c
@@ -67,11 +67,11 @@ static void perl_script_destroy(PERL_SCRIPT_REC *script)
 {
 	perl_scripts = g_slist_remove(perl_scripts, script);
 
-	signal_emit("script destroyed", 1, script);
-
 	perl_signal_remove_script(script);
 	perl_source_remove_script(script);
 
+	signal_emit("script destroyed", 1, script);
+
 	g_free(script->name);
 	g_free(script->package);
         g_free_not_null(script->path);