From eb70580482783b1c9598e32c73bd4e4376268780 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 2 Aug 2004 08:05:41 +0000
Subject: use fs::format::check_package_is_installed() before formatting
 (bugzilla #10435)

---
 perl-install/diskdrake/interactive.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'perl-install')

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 {
-- 
cgit v1.2.1