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 | 6530dc271a4f5b72662022298d7d8cc838c22409 (patch) | |
| tree | 742dfbc520edd6418418ca05741e2ac7b5971959 /perl-install/diskdrake | |
| parent | d269f440d548aa87d9f8b74e305342d2625bacaa (diff) | |
| download | drakx-6530dc271a4f5b72662022298d7d8cc838c22409.tar drakx-6530dc271a4f5b72662022298d7d8cc838c22409.tar.gz drakx-6530dc271a4f5b72662022298d7d8cc838c22409.tar.bz2 drakx-6530dc271a4f5b72662022298d7d8cc838c22409.tar.xz drakx-6530dc271a4f5b72662022298d7d8cc838c22409.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?")); } |