From 587c9a47bf5739a4927c725f9bc0db818711cb2d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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