summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-08 12:40:26 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-08 12:40:26 +0000
commit3b58fc4621dc22dc2115dc151042729f648b5998 (patch)
treeb4a54043141619d2e9c250415c9a0d19f90e1830 /perl-install
parentcd17c3d798ab3eec0f0946aa2c2d8bb86aa3c9b1 (diff)
downloaddrakx-3b58fc4621dc22dc2115dc151042729f648b5998.tar
drakx-3b58fc4621dc22dc2115dc151042729f648b5998.tar.gz
drakx-3b58fc4621dc22dc2115dc151042729f648b5998.tar.bz2
drakx-3b58fc4621dc22dc2115dc151042729f648b5998.tar.xz
drakx-3b58fc4621dc22dc2115dc151042729f648b5998.zip
cleanup
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm4
1 files changed, 2 insertions, 2 deletions
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' }
);