summaryrefslogtreecommitdiffstats
path: root/perl-install/mygtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-01-24 13:03:41 +0000
committerThierry Vignaud <tv@mandriva.org>2008-01-24 13:03:41 +0000
commit1997d020ea4a42e3a708b6d9a0b6e11902449e7d (patch)
treeb017687d539948cef32adbb125eb36174223e2a9 /perl-install/mygtk2.pm
parent21aeb4220e320371d871e2194ab4a9988e1a8599 (diff)
downloaddrakx-1997d020ea4a42e3a708b6d9a0b6e11902449e7d.tar
drakx-1997d020ea4a42e3a708b6d9a0b6e11902449e7d.tar.gz
drakx-1997d020ea4a42e3a708b6d9a0b6e11902449e7d.tar.bz2
drakx-1997d020ea4a42e3a708b6d9a0b6e11902449e7d.tar.xz
drakx-1997d020ea4a42e3a708b6d9a0b6e11902449e7d.zip
(init) move enabling catching exceptions here so that users of
::no_ugtk_init still get covered once calling init(), thus catching exceptions
Diffstat (limited to 'perl-install/mygtk2.pm')
-rw-r--r--perl-install/mygtk2.pm3
1 files changed, 2 insertions, 1 deletions
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;