diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/NEWS | 3 | ||||
| -rw-r--r-- | perl-install/fs/format.pm | 2 | ||||
| -rw-r--r-- | perl-install/install/NEWS | 4 |
3 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index 176d04bb1..a91f8dff5 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,6 @@ +- diskdrake: + o display a progress bar while formating an ext4 partition + Version 12.29 - 21 April 2009 - finish-install: diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm index 509134b17..e50cf492a 100644 --- a/perl-install/fs/format.pm +++ b/perl-install/fs/format.pm @@ -168,7 +168,7 @@ sub part_raw { my @args = ($cmd, @first_options, @options, devices::make($dev)); - if ($cmd eq 'mkfs.ext3' && $wait_message) { + if ($cmd =~ /^mkfs.ext[34]$/ && $wait_message) { mkfs_ext3($wait_message, @args) or die N("%s formatting of %s failed", $fs_type, $dev); } else { run_program::raw({ timeout => 'never' }, @args) or die N("%s formatting of %s failed", $fs_type, $dev); diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index a69890b96..35797eec2 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,4 +1,6 @@ -- do not run udevadm in install mode +- diskdrake: + o display a progress bar while formating an ext4 partition + o do not run udevadm in install mode Version 12.29 - 21 April 2009 |