summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-06 10:13:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-06 10:13:04 +0000
commitd5e86a6fc9952b1eea07d5c14dc743fde7692d45 (patch)
treeae270820de5332ff8d24f3dc85c81a454f4c2f43 /perl-install/install_steps_interactive.pm
parent0d5a1b01a3a92b910347fbbba77ef0b1e18ac3c5 (diff)
downloaddrakx-d5e86a6fc9952b1eea07d5c14dc743fde7692d45.tar
drakx-d5e86a6fc9952b1eea07d5c14dc743fde7692d45.tar.gz
drakx-d5e86a6fc9952b1eea07d5c14dc743fde7692d45.tar.bz2
drakx-d5e86a6fc9952b1eea07d5c14dc743fde7692d45.tar.xz
drakx-d5e86a6fc9952b1eea07d5c14dc743fde7692d45.zip
- 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
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm8
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);