From 3b58fc4621dc22dc2115dc151042729f648b5998 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 8 Mar 2001 12:40:26 +0000 Subject: cleanup --- perl-install/any.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index 23be9b452..00052540e 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -268,7 +268,7 @@ if_(arch() !~ /sparc|ppc/, { label => _("Unsafe"), val => \$e->{unsafe}, type => 'bool' } ), ); - @l = @l[0] unless $::expert; + @l = $l[0] unless $::expert; } if (arch() !~ /ppc/) { @l = ( @@ -283,7 +283,7 @@ if (arch() !~ /ppc/) { @l = ({ label => _("Label"), val => \$e->{label} }, $::expert ? @l[1..4] : @l[1..2], { label => _("Append"), val => \$e->{append} } , if_($::expert, { label => _("Initrd-size"), val => \$e->{initrdsize}, list => [ '', '4096', '8192', '16384', '24576' ] }), - if_($::expert, @l[5]), + if_($::expert, $l[5]), { label => _("NoVideo"), val => \$e->{novideo}, type => 'bool' }, { label => _("Default"), val => \$default, type => 'bool' } ); -- cgit v1.2.1