summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draksec
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/draksec')
-rwxr-xr-xperl-install/standalone/draksec11
1 files changed, 10 insertions, 1 deletions
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index 04e9dd0b4..9e8e3129a 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -24,7 +24,16 @@ use lib qw(/usr/lib/libDrakX);
use common;
use standalone;
use vars qw($MODE %options);
-use ugtk2 qw(:helpers :wrappers :ask :create);
+BEGIN {
+ eval {
+ require ugtk2;
+ ugtk2->import(qw(:helpers :wrappers :ask :create));
+ };
+ if ($@) {
+ print "This program cannot be run in console mode.\n";
+ c::_exit(0); #- skip ugtk2::END
+ }
+}
use run_program;
use security::level;
use security::msec;