--- gaim-1.5.0/plugins/perl/common/Account.xs.orig	2004-04-28 06:16:37.000000000 +0300
+++ gaim-1.5.0/plugins/perl/common/Account.xs	2006-04-20 00:11:01.000000000 +0300
@@ -35,6 +35,14 @@
 	serv_set_info(gaim_account_get_connection(account), user_info);
 
 void
+gaim_account_set_away(account, state, message)
+	Gaim::Account account
+	const char *state
+	const char *message
+CODE:
+	serv_set_away(gaim_account_get_connection(account), state, message);
+
+void
 gaim_account_set_buddy_icon(account, buddy_icon)
 	Gaim::Account account
 	const char *buddy_icon