From 44e50eaf2d9a98e51f5fbe71c57e54be2f97b893 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 5 Aug 2004 04:27:35 +0000
Subject: adapt to bootloader functions now using all_hds instead of hds

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

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 823f0fdec..454b6fa02 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -80,7 +80,6 @@ sub hdInstallPath() {
 
 sub setupBootloader {
     my ($in, $b, $all_hds, $fstab, $security) = @_;
-    my $hds = $all_hds->{hds};
 
     require bootloader;
   general:
@@ -88,7 +87,7 @@ sub setupBootloader {
 	local $::Wizard_no_previous = 1 if $::isStandalone;
 	setupBootloader__general($in, $b, $all_hds, $fstab, $security) or return 0;
     }
-    setupBootloader__boot_bios_drive($in, $b, $hds) or goto general;
+    setupBootloader__boot_bios_drive($in, $b, $all_hds->{hds}) or goto general;
     {
 	local $::Wizard_finished = 1 if $::isStandalone;
 	setupBootloader__entries($in, $b, $all_hds, $fstab) or goto general;
@@ -99,7 +98,7 @@ sub setupBootloader {
 
     eval { run_program::rooted($::prefix, 'lilo', '-u') } if $::isInstall && !$::o->{isUpgrade} && -e "$::prefix/etc/lilo.conf" && glob("$::prefix/boot/boot.*");
 
-    bootloader::install($b, $hds);
+    bootloader::install($b, $all_hds);
 }
 
 
-- 
cgit v1.2.1