From 829760ee896dfda91ed493750edc43aa069ce5c8 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 19 Nov 2007 09:43:30 +0000 Subject: - diskdrake: o disallow "Use for loopback" when the partition used for loopback is not formatted (#35535) --- perl-install/NEWS | 2 ++ perl-install/diskdrake/interactive.pm | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/perl-install/NEWS b/perl-install/NEWS index 763198858..fac745479 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,5 +1,7 @@ - diskdrake: o fix garbaged error messages when umounting fs + o disallow "Use for loopback" when the partition used for loopback is + not formatted (#35535) Version 10.5.3 - 9 November 2007, by Pascal "Pixel" Rigaux diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index a96b9e0e0..e5c79a8a7 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -436,7 +436,7 @@ sub part_possible_actions { N_("Remove from RAID") => 'isPartOfRAID', N_("Remove from LVM") => 'isPartOfLVM', N_("Modify RAID") => 'canModifyRAID', - N_("Use for loopback") => '!$part->{real_mntpoint} && isMountableRW && !isSpecial && hasMntpoint && $::expert', + N_("Use for loopback") => '!$part->{real_mntpoint} && isMountableRW && !isSpecial && hasMntpoint && maybeFormatted && $::expert', ); my ($actions_names) = list2kv(@l); my $_all_hds = $all_hds; #- help perl_checker know the $all_hds *is* used in the macro below -- cgit v1.2.1