summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/logdrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-07-01 00:13:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-07-01 00:13:52 +0000
commit7c55459f9d70d9ceaa300cf869185b531cc9c30e (patch)
tree33fe5fb6f4c6801c9245c69e63698919a39cd064 /perl-install/standalone/logdrake
parent17f55e9df711f3c56296fa2dc92783931e2214de (diff)
downloaddrakx-7c55459f9d70d9ceaa300cf869185b531cc9c30e.tar
drakx-7c55459f9d70d9ceaa300cf869185b531cc9c30e.tar.gz
drakx-7c55459f9d70d9ceaa300cf869185b531cc9c30e.tar.bz2
drakx-7c55459f9d70d9ceaa300cf869185b531cc9c30e.tar.xz
drakx-7c55459f9d70d9ceaa300cf869185b531cc9c30e.zip
revert ugly code printing "This program cannot be run in console mode",
it is easily done in ugtk2.pm
Diffstat (limited to 'perl-install/standalone/logdrake')
-rwxr-xr-xperl-install/standalone/logdrake11
1 files changed, 1 insertions, 10 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 541d97a58..edc84a591 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -26,16 +26,7 @@ use lib qw(/usr/lib/libDrakX);
use standalone; #- warning, standalone must be loaded very first, for 'explanations'
use common;
use interactive;
-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 ugtk2 qw(:create :dialogs :helpers :wrappers);
use vars qw(*F);
my $in = 'interactive'->vnew('su');