diff options
Diffstat (limited to 'perl-install/standalone/draksec')
-rwxr-xr-x | perl-install/standalone/draksec | 11 |
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; |