diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index 6e0503d1..572fa52b 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -59,6 +59,16 @@ void
 signal_stop_by_name(signal)
 	char *signal
 
+char *
+signal_get_emitted()
+CODE:
+	RETVAL = (char *) signal_get_emitted();
+OUTPUT:
+	RETVAL
+
+int
+signal_get_emitted_id()
+
 int
 timeout_add(msecs, func, data)
 	int msecs