summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-02 08:05:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-02 08:05:41 +0000
commiteb70580482783b1c9598e32c73bd4e4376268780 (patch)
tree46079d9089f8615b206fab8271598df4176e0bec /perl-install/diskdrake
parent137cba98aa58448cc48aac6ab5d7179d048cbcf0 (diff)
downloaddrakx-eb70580482783b1c9598e32c73bd4e4376268780.tar
drakx-eb70580482783b1c9598e32c73bd4e4376268780.tar.gz
drakx-eb70580482783b1c9598e32c73bd4e4376268780.tar.bz2
drakx-eb70580482783b1c9598e32c73bd4e4376268780.tar.xz
drakx-eb70580482783b1c9598e32c73bd4e4376268780.zip
use fs::format::check_package_is_installed() before formatting (bugzilla #10435)
Diffstat (limited to 'perl-install/diskdrake')
-rw-r--r--perl-install/diskdrake/interactive.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 97c3d8a11..c5bbccdff 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -1075,6 +1075,9 @@ sub format_ {
my ($in, $hd, $part, $all_hds) = @_;
write_partitions($in, $_) or return foreach isRAID($part) ? @{$all_hds->{hds}} : $hd;
ask_alldatawillbelost($in, $part, N_("After formatting partition %s, all data on this partition will be lost")) or return;
+ if ($::isStandalone) {
+ fs::format::check_package_is_installed($in->do_pkgs, $part->{fs_type}) or return;
+ }
$part->{isFormatted} = 0; #- force format;
my $w;
fs::format::part($all_hds->{raids}, $part, $::prefix, sub {