From 7df41f293b9f5225f52cf3c5827788aaaabdc083 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 11 Mar 2012 00:39:24 +0000
Subject: (type_names) kill debug print

---
 perl-install/fs/type.pm | 1 -
 1 file changed, 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm
index fe5468806..12db643bc 100644
--- a/perl-install/fs/type.pm
+++ b/perl-install/fs/type.pm
@@ -188,7 +188,6 @@ sub type_names {
     push @l, grep { $_ ne 'Encrypted' } @{$type_names{non_fs_type}};
     push @l, sort @{$type_names{other}} if $expert;
     if ($o_hd && !$o_hd->use_pt_type) {
-	warn "$_ => $type_name2fs_type{$_}\n" foreach @l;
 	@l = grep { $type_name2fs_type{$_} } @l;
 	@l = uniq_ { $type_name2fs_type{$_[0]} } @l;
 	(@l, @{$type_names{non_fs_type}});
-- 
cgit v1.2.1