--- a/plugins/perl/common/Util.xs	Sat Feb 04 05:17:46 2006 +0000
+++ b/plugins/perl/common/Util.xs	Sat Feb 04 20:55:52 2006 +0000
@@ -52,8 +52,8 @@
 	int mode
 
 const char *
-gaim_date_format_full(time)
-	time_t time
+gaim_date_format_full(tm)
+	const struct tm *tm
 
 const char *
 gaim_date_format_long(tm)
@@ -182,9 +182,12 @@
 	const char *name
 
 time_t
-gaim_str_to_time(timestamp, utc)
+gaim_str_to_time(timestamp, utc = FALSE, tm = NULL, tz_off = NULL, rest = NULL)
 	const char *timestamp
 	gboolean utc
+	struct tm *tm
+	long *tz_off
+	const char **rest
 
 gchar *
 gaim_strcasereplace(string, delimiter, replacement)