summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-03-07 12:07:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-03-07 12:07:12 +0000
commitc0a11955a653356e6eba345a5bd9a2b057fec717 (patch)
tree5c95e95a1123d16038798519bf7121ec38121b5c /perl-install/any.pm
parent7841bef17e69e93f67162c8a96754c55b729298b (diff)
downloaddrakx-backup-do-not-use-c0a11955a653356e6eba345a5bd9a2b057fec717.tar
drakx-backup-do-not-use-c0a11955a653356e6eba345a5bd9a2b057fec717.tar.gz
drakx-backup-do-not-use-c0a11955a653356e6eba345a5bd9a2b057fec717.tar.bz2
drakx-backup-do-not-use-c0a11955a653356e6eba345a5bd9a2b057fec717.tar.xz
drakx-backup-do-not-use-c0a11955a653356e6eba345a5bd9a2b057fec717.zip
fix *some* stew errors
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index bb7777aa0..ed6ad3ba0 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -197,7 +197,7 @@ sub setupBootloader {
$b->{boot} = $partition_table_mac::bootstrap_part;
$in->ask_from('', _("Bootloader main options"), [
{ label => _("Bootloader to use"), val => \$bootloader, list => [ keys(%bootloaders) ], format => \&translate },
- { label => _("Init Message"), val => \$b->{init-message} },
+ { label => _("Init Message"), val => \$b->{'init-message'} },
{ label => _("Boot device"), val => \$b->{boot}, list => [ map { "/dev/$_" } (map { $_->{device} } (grep { isAppleBootstrap($_) } @$fstab))], not_edit => !$::expert },
{ label => _("Open Firmware Delay"), val => \$b->{delay} },
{ label => _("Kernel Boot Timeout"), val => \$b->{timeout} },
@@ -235,8 +235,8 @@ sub setupBootloader {
if ($mixed_kind_of_disks &&
# $b->{boot} !~ /$hds->[0]{device}/ && #- not the first disk
$b->{boot} =~ /\d$/ && #- on a partition
- is_empty_hash_ref($b->{bios}) #- some bios mapping already there
- ) && (arch() !~ /ppc/)){
+ is_empty_hash_ref($b->{bios}) && #- some bios mapping already there
+ arch() !~ /ppc/) {
my $hd = $in->ask_from_listf('', _("You decided to install the bootloader on a partition.
This implies you already have a bootloader on the hard drive you boot (eg: System Commander).