diff --git a/src/perl/common/Server.xs b/src/perl/common/Server.xs
index 5516cc4a..41291b96 100644
--- a/src/perl/common/Server.xs
+++ b/src/perl/common/Server.xs
@@ -94,10 +94,10 @@ OUTPUT:
 	RETVAL
 
 void
-send_message(server, target, msg)
+send_message(server, target, msg, int target_type)
 	Irssi::Server server
 	char *target
 	char *msg
 CODE:
-	server->send_message(server, target, msg);
+	server->send_message(server, target, msg, target_type);