--- a/plugins/perl/common/Conversation_Chat.xs	Sun Aug 24 20:28:34 2003 +0000
+++ b/plugins/perl/common/Conversation_Chat.xs	Sun Aug 24 20:36:41 2003 +0000
@@ -75,11 +75,13 @@
 	Gaim::Conversation::Chat chat
 
 void
-gaim_chat_write(chat, who, message, flags)
+write(chat, who, message, flags)
 	Gaim::Conversation::Chat chat
 	const char *who
 	const char *message
 	int flags
+CODE:
+	gaim_chat_write(chat, who, message, flag, time(NULL);
 
 void
 gaim_chat_send(chat, message)