summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:27:26 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:27:26 +0000
commit6530dc271a4f5b72662022298d7d8cc838c22409 (patch)
tree742dfbc520edd6418418ca05741e2ac7b5971959 /perl-install/diskdrake
parentd269f440d548aa87d9f8b74e305342d2625bacaa (diff)
downloaddrakx-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.pm5
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?"));
}