- 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/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index be261c940..97118f376 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -1080,12 +1080,8 @@ sub format_ {
 	fs::format::check_package_is_installed($in->do_pkgs, $part->{fs_type}) or return;
     }
     $part->{isFormatted} = 0; #- force format;
-    my $w;
-    fs::format::part($all_hds->{raids}, $part, $::prefix, sub {
-        	my ($msg) = @_;
-        	$w ||= $in->wait_message('', $msg);
-        	$w->set($msg);
-    });
+    my ($_w, $wait_message) = fs::format::wait_message($in);
+    fs::format::part($all_hds->{raids}, $part, $::prefix, $wait_message);
     1;
 }