summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-06-30 09:51:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-06-30 09:51:42 +0000
commit4ed0613c685bc3fa6aea3a7e6ce412e123f9ea76 (patch)
tree5ff93bebc143702c2302f6976d7e10f980643e0e /perl-install/ugtk2.pm
parent6ae1c680522f381a570d39018c7907697fe329fe (diff)
downloaddrakx-backup-do-not-use-4ed0613c685bc3fa6aea3a7e6ce412e123f9ea76.tar
drakx-backup-do-not-use-4ed0613c685bc3fa6aea3a7e6ce412e123f9ea76.tar.gz
drakx-backup-do-not-use-4ed0613c685bc3fa6aea3a7e6ce412e123f9ea76.tar.bz2
drakx-backup-do-not-use-4ed0613c685bc3fa6aea3a7e6ce412e123f9ea76.tar.xz
drakx-backup-do-not-use-4ed0613c685bc3fa6aea3a7e6ce412e123f9ea76.zip
use print + exit instead of die
(so that standalone tools don't need to do it by hand)
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index ebb2a3a63..d04285fd0 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -42,7 +42,7 @@ use Gtk2;
use Gtk2::Gdk::Keysyms;
unless ($::no_ugtk_init) {
- !check_for_xserver() and die "Cannot be run in console mode.\n";
+ !check_for_xserver() and print("Cannot be run in console mode.\n"), c::_exit(0);
$::one_message_has_been_translated and warn("N() was called from $::one_message_has_been_translated BEFORE gtk2 initialisation, replace it with a N_() AND a translate() later.\n"), c::_exit(1);
Gtk2->init;