From 12a1d2d4758064e43aae4408e3076530fee36639 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 5 Dec 2002 11:42:49 +0000 Subject: fix typo, be perl_checker compatible --- perl-install/bootlook.pm | 5 +++-- 1 file 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/^[^.]/) { -- cgit v1.2.1