diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-10-30 23:06:52 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-10-30 23:06:52 +0000 |
| commit | 43d5e4e50276c0bb68c3f4c1abfd18bfe6918b55 (patch) | |
| tree | 037b29332778d0c16e8601386293b15d3b670bc2 /perl-install | |
| parent | 2b044f3fa4a763c67b4f9ef847598193f1462efd (diff) | |
| download | drakx-43d5e4e50276c0bb68c3f4c1abfd18bfe6918b55.tar drakx-43d5e4e50276c0bb68c3f4c1abfd18bfe6918b55.tar.gz drakx-43d5e4e50276c0bb68c3f4c1abfd18bfe6918b55.tar.bz2 drakx-43d5e4e50276c0bb68c3f4c1abfd18bfe6918b55.tar.xz drakx-43d5e4e50276c0bb68c3f4c1abfd18bfe6918b55.zip | |
handle new exception system from perl-Glib >= 0.96
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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; } |