From 85e27c29d6c577a0f6aa9e05130d8a3c7c312775 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 5 Apr 2001 22:28:24 +0000
Subject: (install_grub): small fix

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

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 55b64018d..3efece178 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -693,9 +693,10 @@ sub dev2grub {
 
 sub install_grub {
     my ($prefix, $lilo, $fstab, $hds) = @_;
-    my %dev2bios = 
+    my %dev2bios = (
       (map_index { $_ => "fd$::i" } detect_devices::floppies()),
-      (map_index { $_ => "hd$::i" } dev2bios($hds, $lilo->{boot}));
+      (map_index { $_ => "hd$::i" } dev2bios($hds, $lilo->{boot})),
+    );
 
     {
 	my %bios2dev = reverse %dev2bios;
-- 
cgit v1.2.1