From c0a11955a653356e6eba345a5bd9a2b057fec717 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 7 Mar 2002 12:07:12 +0000
Subject: fix *some* stew errors

---
 perl-install/bootloader.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/bootloader.pm')

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,
-- 
cgit v1.2.1