From 982276b91c37240a34ea6a6f4baaa981af10e289 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 20 Jul 2001 13:20:19 +0000
Subject: (install_lilo): order fat partitions first

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

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index e7aec8add..a28684f5b 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -613,8 +613,8 @@ sub install_lilo ($$) {
 	my ($file) = @_;
 	if (arch() =~ /ia64/) {
 	    (my $part, $file) = fsedit::file2part($prefix, $fstab, $file);
-#	    my %hds = map_index { $_ => "hd$::i" } sort map { $_->{device} } @$hds;
-	    my %hds = map_index { $_ => "hd$::i" } sort map { $_->{device} } map { @{$_->{primary}{normal}}, map {$_->{normal} } @{$_->{extended} || []} } @$hds;
+	    my %hds = map_index { $_ => "hd$::i" } map { $_->{device} } 
+	      sort { isFat($b) <=> isFat($a) || $a->{device} cmp $b->{device} } get_fstab(@$hds);
 	    %hds->{$part->{device}} . ":" . $file;
 	} else {
 	    $file
-- 
cgit v1.2.1