From 587c9a47bf5739a4927c725f9bc0db818711cb2d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 1 Aug 2002 11:34:37 +0000
Subject: get rid of some $prefix parameter passing

---
 perl-install/install_any.pm   | 2 +-
 perl-install/install_steps.pm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index a69e8c0c6..8e60840bf 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -543,7 +543,7 @@ sub setupFB {
 	    $e->{vga} = $vga;
 	}
     }
-    bootloader::install($o->{prefix}, $o->{bootloader}, $o->{fstab}, $o->{all_hds}{hds});
+    bootloader::install($o->{bootloader}, $o->{fstab}, $o->{all_hds}{hds});
     1;
 }
 
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 9995f2b52..d1509224b 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -763,7 +763,7 @@ sub createBootdisk($) {
     return if $::testing;
 
     require bootloader;
-    bootloader::mkbootdisk($o->{prefix}, install_any::kernelVersion($o), $dev, $o->{bootloader}{perImageAppend});
+    bootloader::mkbootdisk(install_any::kernelVersion($o), $dev, $o->{bootloader}{perImageAppend});
     $o->{mkbootdisk} = $dev;
 }
 
@@ -875,7 +875,7 @@ sub setupBootloader($) {
 #	    map { /$o->{prefix}(.*)/ } eval { glob_("$o->{prefix}/boot/vmlinux*") };
     } else {
 	require bootloader;
-	bootloader::install($o->{prefix}, $o->{bootloader}, $o->{fstab}, $o->{all_hds}{hds});
+	bootloader::install($o->{bootloader}, $o->{fstab}, $o->{all_hds}{hds});
     }
 }
 
-- 
cgit v1.2.1