summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-05 11:42:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-05 11:42:49 +0000
commit12a1d2d4758064e43aae4408e3076530fee36639 (patch)
treea1bef828bd97517e64e1847bba0f73b9d4074c55 /perl-install
parentf3ca2cdee611a2ccce087701eaad44c8cc57bf48 (diff)
downloaddrakx-12a1d2d4758064e43aae4408e3076530fee36639.tar
drakx-12a1d2d4758064e43aae4408e3076530fee36639.tar.gz
drakx-12a1d2d4758064e43aae4408e3076530fee36639.tar.bz2
drakx-12a1d2d4758064e43aae4408e3076530fee36639.tar.xz
drakx-12a1d2d4758064e43aae4408e3076530fee36639.zip
fix typo, be perl_checker compatible
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootlook.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 58f318316..a774bb56a 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -48,6 +48,7 @@ parse_etc_passwd();
my $no_bootsplash;
my $x_mode = any::runlevel() == 5;
my $a_mode = -e "/etc/aurora/Monitor" ? 1 : 0;
+my $auto_mode = any::get_autologin();
my $inmain = 0;
my $lilogrub = chomp_(`detectloader -q`);
@@ -111,8 +112,8 @@ if (member( $cur_res, qw( 785 788 791 794))) {
#- and check that lilo is the correct loader
$no_bootsplash ||= chomp_(`detectloader -q`) ne 'LILO';
my @thms;
-my @lilo_thms = ($themes{default} ? () : qw(default));
-my @boot_thms = ($themes{default} ? () : qw(default));
+my @lilo_thms = if_(!$themes{default}, qw(default));
+my @boot_thms = if_(!$themes{default}, qw(default));
chdir($themes{path}); #- we must change directory for correct @thms assignement
foreach (all('.')) {
if (-d $themes{path} . $_ && m/^[^.]/) {