- fs::format::part_raw() now takes $wait_message to allow displaying the progress of format

- create fs::format::wait_message() which creates a $wait_message valid to give to fs::format::part
- fs::format::mke2fs() format while parsing the output to display the progress

1 files changed, 2 insertions, 6 deletions

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index a333c8405..407a909b6 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -367,13 +367,9 @@ sub choosePartitionsToFormat {
 
 sub formatMountPartitions {
     my ($o, $_fstab) = @_;
-    my $w;
+    my ($w, $wait_message) = fs::format::wait_message($o);
     catch_cdie {
-        fs::formatMount_all($o->{all_hds}{raids}, $o->{fstab}, $o->{prefix}, sub {
-        	my ($msg) = @_;
-        	$w ||= $o->wait_message('', $msg);
-        	$w->set($msg);
-        });
+        fs::formatMount_all($o->{all_hds}{raids}, $o->{fstab}, $o->{prefix}, $wait_message);
     } sub { 
 	$@ =~ /fsck failed on (\S+)/ or return;
 	$o->ask_yesorno('', N("Failed to check filesystem %s. Do you want to repair the errors? (beware, you can lose data)", $1), 1);