Index: GLog.xs
===================================================================
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/GLog.xs,v
retrieving revision 1.13
diff -u -d -p -r1.13 GLog.xs
--- GLog.xs	8 Feb 2005 04:21:11 -0000	1.13
+++ GLog.xs	20 Jun 2005 12:48:59 -0000
@@ -111,7 +111,7 @@ gperl_log_handler (const gchar   *log_do
 
 	if (!message)
 		message = "(NULL) message";
-	
+
 	switch (log_level) {
 		case G_LOG_LEVEL_CRITICAL: desc = "CRITICAL"; break;
 		case G_LOG_LEVEL_ERROR:    desc = "ERROR";    break;
@@ -120,6 +120,8 @@ gperl_log_handler (const gchar   *log_do
 		default: desc = "LOG";
 	}
 
+	PERL_SET_CONTEXT (user_data);
+
 	full_string = form ("%s%s%s %s**: %s",
 	                    (log_domain ? log_domain : ""),
 	                    (log_domain ? "-" : ""),
@@ -157,7 +159,7 @@ gint
 gperl_handle_logs_for (const gchar * log_domain)
 {
 	return g_log_set_handler (log_domain, ALL_LOGS,
-	                          gperl_log_handler, NULL);
+	                          gperl_log_handler, PERL_GET_CONTEXT);
 }
 
 =back