Some standalone tools don't compile when run from console

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;