diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index 723533d7..f8ad6c00 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -397,6 +397,11 @@ command_unbind(cmd, func)
 CODE:
 	perl_command_unbind(cmd, func);
 
+void
+command_set_options(cmd, options)
+	char *cmd
+	char *options
+
 void
 pidwait_add(pid)
 	int pid