summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.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/bootloader.pm
parent7841bef17e69e93f67162c8a96754c55b729298b (diff)
downloaddrakx-c0a11955a653356e6eba345a5bd9a2b057fec717.tar
drakx-c0a11955a653356e6eba345a5bd9a2b057fec717.tar.gz
drakx-c0a11955a653356e6eba345a5bd9a2b057fec717.tar.bz2
drakx-c0a11955a653356e6eba345a5bd9a2b057fec717.tar.xz
drakx-c0a11955a653356e6eba345a5bd9a2b057fec717.zip
fix *some* stew errors
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 6975267be..0bbcc6f37 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -98,7 +98,7 @@ sub read($$) {
} elsif ($_ eq 'init-message') {
$v =~ s/\\n//g;
$v =~ s/"//g;
- $b{init-message} = $v;
+ $b{'init-message'} = $v;
} else {
$b{$_} = $v || 1;
}
@@ -114,7 +114,7 @@ sub read($$) {
}
}
}
- if (arch() != /ppc/) {
+ if (arch() !~ /ppc/) {
delete $b{timeout} unless $b{prompt};
$_->{append} =~ s/^\s*"?(.*?)"?\s*$/$1/ foreach \%b, @{$b{entries}};
$b{timeout} = $b{timeout} / 10 if $b{timeout};
@@ -326,7 +326,7 @@ sub suggest {
{
defaultos => "linux",
entries => [],
- init-message => "Welcome to Mandrake Linux!",
+ 'init-message' => "Welcome to Mandrake Linux!",
delay => 30, #- OpenFirmware delay
timeout => 50,
enableofboot => 1,