libpurple/plugins/perl/perl-handlers.c

changeset 17570
4cca2fc0ec83
parent 16140
362e0ca15d3a
child 18165
fb6f9d0130aa
--- a/libpurple/plugins/perl/perl-handlers.c	Mon Jun 04 04:34:28 2007 +0000
+++ b/libpurple/plugins/perl/perl-handlers.c	Mon Jun 04 04:50:02 2007 +0000
@@ -184,7 +184,7 @@
 	timeout_handlers = g_list_remove(timeout_handlers, handler);
 
 	if (handler->iotag > 0)
-		g_source_remove(handler->iotag);
+		purple_timeout_remove(handler->iotag);
 
 	if (handler->callback != NULL)
 		SvREFCNT_dec(handler->callback);
@@ -405,7 +405,7 @@
 
 	timeout_handlers = g_list_append(timeout_handlers, handler);
 
-	handler->iotag = g_timeout_add(seconds * 1000, perl_timeout_cb, handler);
+	handler->iotag = purple_timeout_add(seconds * 1000, perl_timeout_cb, handler);
 }
 
 void

mercurial