diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-03-07 12:07:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-03-07 12:07:12 +0000 |
| commit | c0a11955a653356e6eba345a5bd9a2b057fec717 (patch) | |
| tree | 5c95e95a1123d16038798519bf7121ec38121b5c /perl-install/bootloader.pm | |
| parent | 7841bef17e69e93f67162c8a96754c55b729298b (diff) | |
| download | drakx-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/bootloader.pm')
| -rw-r--r-- | perl-install/bootloader.pm | 6 |
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, |