diff plugins/perl/common/Account.xs @ 6523:d7e04709be96

[gaim-migrate @ 7040] Fixed a perl function call, and changed gaim_account_set_user_info to update the server when called from a perl script. committer: Tailor Script <tailor@pidgin.im>
author Christian Hammond <chipx86@chipx86.com>
date Wed, 20 Aug 2003 10:38:41 +0000
parents cbd24b37350d
children 12343e2aaab1
line wrap: on
line diff
--- a/plugins/perl/common/Account.xs	Wed Aug 20 10:28:14 2003 +0000
+++ b/plugins/perl/common/Account.xs	Wed Aug 20 10:38:41 2003 +0000
@@ -30,6 +30,9 @@
 gaim_account_set_user_info(account, user_info)
 	Gaim::Account account
 	const char *user_info
+CODE:
+	gaim_account_set_user_info(account, user_info);
+	serv_set_info(gaim_account_get_connection(account), user_info);
 
 void
 gaim_account_set_buddy_icon(account, buddy_icon)