# HG changeset patch
# User Daniel Atallah <daniel.atallah@gmail.com>
# Date 1218082222 0
# Node ID f441a38932a2fd7cfc4438f295b022f6007876d6
# Parent  9d7ebd28d339e26f005f9f9f136d349a2b67a3e6
Fix purple_str_strip_char and purple_util_chrreplace to be able to work.

diff -r 9d7ebd28d339 -r f441a38932a2 libpurple/plugins/perl/common/Util.xs
--- a/libpurple/plugins/perl/common/Util.xs	Thu Aug 07 04:03:23 2008 +0000
+++ b/libpurple/plugins/perl/common/Util.xs	Thu Aug 07 04:10:22 2008 +0000
@@ -356,10 +356,8 @@
 purple_str_size_to_units(size)
 	size_t size
 
-#TODO: Fix this to handle str being modified in-place
 void
-purple_str_strip_char(str, thechar)
-	char *str
+purple_str_strip_char(IN_OUT char str, thechar)
 	char thechar
 
 time_t
@@ -514,10 +512,8 @@
 	const char *artist
 	const char *album
 
-#TODO: Fix this to handle str being modified in-place
 void
-purple_util_chrreplace(string, delimiter, replacement)
-	char* string
+purple_util_chrreplace(IN_OUT char string, delimiter, replacement)
 	char delimiter
 	char replacement