diff --git a/src/perl/common/Server.xs b/src/perl/common/Server.xs
index d1e7436c..eb6aa90d 100644
--- a/src/perl/common/Server.xs
+++ b/src/perl/common/Server.xs
@@ -25,7 +25,7 @@ server_create_conn(chat_type, dest, port=6667, chatnet=NULL, password=NULL, nick
 	int chat_type
 	char *dest
 	int port
-	chat *chatnet
+	char *chatnet
 	char *password
 	char *nick