From 0d5a1b01a3a92b910347fbbba77ef0b1e18ac3c5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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