From a341b16a6f1835fb8774fbc8a1d08440cfa93082 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 3 Feb 2002 19:24:00 +0000
Subject: fix typo

---
 perl-install/bootloader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 5e5d9741b..ce5c521a1 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -720,7 +720,7 @@ sub write_lilo_conf {
 	    $done{0} = $done{$dev2bios{$dev}} = 1;
 	}
 	foreach (0 .. 3) {
-	    my ($letter) = $bios2dev{$_} !~ /hd([^ac])/; #- at least hda and hdc are handled correctly :-/
+	    my ($letter) = $bios2dev{$_} =~ /hd([^ac])/; #- at least hda and hdc are handled correctly :-/
 	    next if $done{$_} || !$letter;
 	    next if 
 	      $_ > 0 #- always print if first disk is hdb, hdd, hde...
-- 
cgit v1.2.1