From fcc4ef31243b9e51adb718862d03762221bb37c2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 5 Dec 2004 19:34:44 +0000
Subject: don't allow partition types we don't know how to format in
 {partitions} for auto_installs (eg of bad type: ntfs)

---
 perl-install/fs/format.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install/fs')

diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm
index 3b04bba56..bbeeed2f0 100644
--- a/perl-install/fs/format.pm
+++ b/perl-install/fs/format.pm
@@ -26,6 +26,11 @@ sub package_needed_for_partition_type {
     $l->[0];
 }
 
+sub known_type {
+    my ($part) = @_;
+    to_bool($cmds{$part->{fs_type}});
+}
+
 sub check_package_is_installed {
     my ($do_pkgs, $fs_type) = @_;
 
-- 
cgit v1.2.1