1 files changed, 10 insertions, 1 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 3b232919b..a35378eef 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -86,7 +86,16 @@ use lib qw(/usr/lib/libDrakX);
 
 use standalone;    #- warning, standalone must be loaded very first, for 'explanations'
 
-use ugtk2 qw(:create :dialogs :helpers :wrappers);
+BEGIN {
+    eval {
+	require ugtk2;
+	ugtk2->import(qw(:create :dialogs :helpers :wrappers));
+    };
+    if ($@) {
+	print "This program cannot be run in console mode.\n";
+	c::_exit(0);  #- skip ugtk2::END
+    }
+}
 use common;
 
 require_root_capability();