diff options
| author | Stew Benedict <stewb@mandriva.org> | 2001-03-07 20:22:24 +0000 |
|---|---|---|
| committer | Stew Benedict <stewb@mandriva.org> | 2001-03-07 20:22:24 +0000 |
| commit | 9e57bf5748bbb39d552c121e810aa02cf54d2a8e (patch) | |
| tree | da881b270a57f154df7c953ccbd24373da5c3e34 /perl-install/any.pm | |
| parent | 48bd747ed10e14dbf40fcbc3c4052bfcaf2bb3f7 (diff) | |
| download | drakx-backup-do-not-use-9e57bf5748bbb39d552c121e810aa02cf54d2a8e.tar drakx-backup-do-not-use-9e57bf5748bbb39d552c121e810aa02cf54d2a8e.tar.gz drakx-backup-do-not-use-9e57bf5748bbb39d552c121e810aa02cf54d2a8e.tar.bz2 drakx-backup-do-not-use-9e57bf5748bbb39d552c121e810aa02cf54d2a8e.tar.xz drakx-backup-do-not-use-9e57bf5748bbb39d552c121e810aa02cf54d2a8e.zip | |
* perl-install/any.pm - fixed two $l vs. @l references - bootloader menu, need image/boot in rec mode PPC
CVl: ----------------------------------------------------------------------
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 769b44c4c..23be9b452 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 = ( @@ -281,9 +281,9 @@ if (arch() !~ /ppc/) { @l ); if ($e->{type} eq "image") { @l = ({ label => _("Label"), val => \$e->{label} }, - $::expert ? @l[1..4] : { label => _("Append"), val => \$e->{append} } , + $::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' } ); |