From d5e86a6fc9952b1eea07d5c14dc743fde7692d45 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 6 Jan 2005 10:13:04 +0000 Subject: - 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 --- perl-install/diskdrake/interactive.pm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'perl-install/diskdrake') 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; } -- cgit v1.2.1