From 0d5a1b01a3a92b910347fbbba77ef0b1e18ac3c5 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 6 Jan 2005 10:10:12 +0000 Subject: fs::formatMount_all() parameter wait_message is no more optional (though you can give undef) --- perl-install/fs.pm | 4 ++-- perl-install/install_steps.pm | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/fs.pm b/perl-install/fs.pm index e7a5322f0..38d55ac89 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -458,8 +458,8 @@ sub formatMount_part { } sub formatMount_all { - my ($raids, $fstab, $prefix, $o_wait_message) = @_; - formatMount_part($_, $raids, $fstab, $prefix, $o_wait_message) + my ($raids, $fstab, $prefix, $wait_message) = @_; + formatMount_part($_, $raids, $fstab, $prefix, $wait_message) foreach sort { isLoopback($a) ? 1 : isSwap($a) ? -1 : 0 } grep { $_->{mntpoint} } @$fstab; #- ensure the link is there diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index e7b34c637..528bb8334 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -281,7 +281,7 @@ sub choosePartitionsToFormat($$) { sub formatMountPartitions { my ($o) = @_; - fs::formatMount_all($o->{all_hds}{raids}, $o->{fstab}, $o->{prefix}); + fs::formatMount_all($o->{all_hds}{raids}, $o->{fstab}, $o->{prefix}, undef); } #------------------------------------------------------------------------------ -- cgit v1.2.1