summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakTermServ
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-06-24 01:51:52 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-06-24 01:51:52 +0000
commit98849cc4d519b8ddf44afda9e5eed89c440ed942 (patch)
tree67ffee11bfd4121ac7405287a26478518038986f /perl-install/standalone/drakTermServ
parent4bb9d4a6e332967f0422f4a6ff3349a6134183c3 (diff)
downloaddrakx-backup-do-not-use-98849cc4d519b8ddf44afda9e5eed89c440ed942.tar
drakx-backup-do-not-use-98849cc4d519b8ddf44afda9e5eed89c440ed942.tar.gz
drakx-backup-do-not-use-98849cc4d519b8ddf44afda9e5eed89c440ed942.tar.bz2
drakx-backup-do-not-use-98849cc4d519b8ddf44afda9e5eed89c440ed942.tar.xz
drakx-backup-do-not-use-98849cc4d519b8ddf44afda9e5eed89c440ed942.zip
Some standalone tools don't compile when run from console
Diffstat (limited to 'perl-install/standalone/drakTermServ')
-rwxr-xr-xperl-install/standalone/drakTermServ11
1 files changed, 10 insertions, 1 deletions
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index 8dd512658..52d87fa29 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -22,7 +22,16 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla
use strict;
use interactive;
-use ugtk2 qw(:helpers :wrappers :create);
+BEGIN {
+ eval {
+ require ugtk2;
+ ugtk2->import(qw(:helpers :wrappers :create));
+ };
+ if ($@) {
+ print "This program cannot be run in console mode.\n";
+ c::_exit(0); #- skip ugtk2::END
+ }
+}
use common;
use run_program;
use MDK::Common::File qw(:all);