perl-Glib r1116 - in trunk: . t

[tsch svn gnome org]

Author: tsch
Date: Sun Mar 29 13:58:57 2009
New Revision: 1116
URL: http://svn.gnome.org/viewvc/perl-Glib?rev=1116&view=rev

Log:
Using multiple log levels breaks g_log on some platforms, so don't do it on
those platforms.  Tracked down by Wim Lewis, and reported here:
<http://bugzilla.gnome.org/show_bug.cgi?id=577137>.


Modified:
   trunk/ChangeLog
   trunk/t/a.t

Modified: trunk/t/a.t
==============================================================================
--- trunk/t/a.t	(original)
+++ trunk/t/a.t	Sun Mar 29 13:58:57 2009
@@ -56,14 +56,18 @@
 Glib::Log->remove_handler (__PACKAGE__, $id);
 };
 
-$id = 
-Glib::Log->set_handler (undef,
-                        [qw/ error critical warning message info debug /],
-			sub {
-				ok(1, "in custom handler $_[1][0]");
-			});
-Glib->log (undef, [qw/ info debug /], 'whee log warning');
-Glib::Log->remove_handler (undef, $id);
+SKIP: {
+	# See <http://bugzilla.gnome.org/show_bug.cgi?id=577137>.
+	skip 'using multiple log levels breaks g_log on some platforms', 2
+		if $Config{archname} =~ /powerpc|amd64/;
+	my $id = Glib::Log->set_handler (undef,
+		[qw/ error critical warning message info debug /],
+		sub {
+			ok(1, "in custom handler $_[1][0]");
+		});
+	Glib->log (undef, [qw/ info debug /], 'whee log warning');
+	Glib::Log->remove_handler (undef, $id);
+}
 
 # i would expect this to call croak, but it actually just aborts.  :-(
 #eval { Glib->error (__PACKAGE__, 'error'); };