diff options
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakboot | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index 7e73f5092..827ec1a52 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -2,17 +2,16 @@ use lib qw(/usr/lib/libDrakX); -require bootlook; - -#-use common qw(:common :file :functional); -#-use interactive; -#-use standalone; -#-use any; -#-use bootloader; -#-use detect_devices; -#-use fsedit; -#-use fs; -#-use c; + +use common qw(:common :file :functional); +use interactive; +use standalone; +use any; +use bootloader; +use detect_devices; +use fsedit; +use fs; +use c; $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/; local $_ = join '', @ARGV; @@ -23,6 +22,8 @@ $::expert = /-expert/; my $in = interactive->vnew('su'); +require bootlook if ref($in) =~ /gtk/; + if (!$::isEmbedded) { my %l = ( arch() !~ /sparc|alpha/ ? ( |