From 1997d020ea4a42e3a708b6d9a0b6e11902449e7d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 24 Jan 2008 13:03:41 +0000 Subject: (init) move enabling catching exceptions here so that users of ::no_ugtk_init still get covered once calling init(), thus catching exceptions --- perl-install/NEWS | 2 ++ perl-install/mygtk2.pm | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/NEWS b/perl-install/NEWS index 9f2014ca7..6f707be6a 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,6 +1,8 @@ - bootloader-config, diskdrake: o look for LVM PV on non partitioned disk before looking for DOS partition_table (esp. for lilo which puts the DOS magic) +- mygtk2: make sure users of ::no_ugtk_init (eg: drakbug) do catch + exceptions in callbacks Version 10.6.6 - 22 January 2008 diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index d9702a080..16d0c302d 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -22,9 +22,10 @@ sub init() { Locale::gettext::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', if_(!$::isInstall, 'libDrakX-standalone'), 'drakx-net', 'drakx-kbd-mouse-x11', # shared translation @::textdomains; + Gtk2->croak_execeptions; } init() unless ($::no_ugtk_init); -Gtk2->croak_execeptions if (!$::no_ugtk_init || $::isInstall); +Gtk2->croak_execeptions if $::isInstall; -- cgit v1.2.1