diff -r 64764637df2a -r be80617ec59b plugins/perl/common/Util.xs
--- a/plugins/perl/common/Util.xs	Mon Oct 31 03:55:56 2005 +0000
+++ b/plugins/perl/common/Util.xs	Mon Oct 31 04:27:06 2005 +0000
@@ -169,8 +169,9 @@
 	size_t size
 
 void 
-gaim_str_strip_cr(str)
+gaim_str_strip_char(str, thechar)
 	char *str
+	char thechar
 
 gchar *
 gaim_str_sub_away_formatters(str, name)