diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:27:26 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:27:26 +0000 |
| commit | f0110566b41d1c9499bf30edb2eb6f1c7c345bd8 (patch) | |
| tree | 742dfbc520edd6418418ca05741e2ac7b5971959 /perl-install/diskdrake | |
| parent | b6ab2bcc5fc30a84eebed9fded502996711ed737 (diff) | |
| download | drakx-backup-do-not-use-f0110566b41d1c9499bf30edb2eb6f1c7c345bd8.tar drakx-backup-do-not-use-f0110566b41d1c9499bf30edb2eb6f1c7c345bd8.tar.gz drakx-backup-do-not-use-f0110566b41d1c9499bf30edb2eb6f1c7c345bd8.tar.bz2 drakx-backup-do-not-use-f0110566b41d1c9499bf30edb2eb6f1c7c345bd8.tar.xz drakx-backup-do-not-use-f0110566b41d1c9499bf30edb2eb6f1c7c345bd8.zip | |
(_format_raw) split it out of format_()
Diffstat (limited to 'perl-install/diskdrake')
| -rw-r--r-- | perl-install/diskdrake/interactive.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index 9528194ba..af71d894f 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -1290,6 +1290,11 @@ sub format_ { if ($::isStandalone) { fs::format::check_package_is_installed_format($in->do_pkgs, $part->{fs_type}) or return; } + _format_raw($in, $part, $all_hds); +} + +sub _format_raw { + my ($in, $part, $all_hds) = @_; if ($::expert && !member($part->{fs_type}, 'reiserfs', 'xfs', 'hfs', 'ntfs', 'ntfs-3g')) { $part->{toFormatCheck} = $in->ask_yesorno(N("Confirmation"), N("Check for bad blocks?")); } |