From 43d5e4e50276c0bb68c3f4c1abfd18bfe6918b55 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 30 Oct 2003 23:06:52 +0000
Subject: handle new exception system from perl-Glib >= 0.96

---
 perl-install/ugtk2.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index c6fd1410d..5da13b44c 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -48,6 +48,7 @@ unless ($::no_ugtk_init) {
     Gtk2->init;
     c::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', @::textdomains;
     $::need_utf8_i18n = 1;
+    Glib->install_exception_handler(sub { warn "$_[0]"; exit(255) }) if 0.95 < $Gtk2::VERSION;
 }
 
 
-- 
cgit v1.2.1