From 56aa33e8cf2d62b12f4c56537d13905e6cafca72 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 8 Sep 2003 11:50:36 +0000 Subject: fix check_mntpoint to get back error "There is already a partition with mount point %s\n" --- perl-install/fsedit.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index e583645dc..fbde3609b 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -517,15 +517,15 @@ sub package_needed_for_partition_type { $l{type2fs($part)}; } -#- do this before modifying $part->{mntpoint} -#- $part->{mntpoint} should not be used here, use $mntpoint instead +#- you can do this before modifying $part->{mntpoint} +#- so $part->{mntpoint} should not be used here, use $mntpoint instead sub check_mntpoint { my ($mntpoint, $hd, $part, $all_hds) = @_; $mntpoint eq '' || isSwap($part) || isNonMountable($part) and return; $mntpoint =~ m|^/| or die \N("Mount points must begin with a leading /"); $mntpoint =~ m|[\x7f-\xff]| and cdie \N("Mount points should contain only alphanumerical characters"); - $mntpoint ne $part->{mntpoint} && has_mntpoint($mntpoint, $all_hds) and die \N("There is already a partition with mount point %s\n", $mntpoint); + has_mntpoint($mntpoint, $all_hds) and die \N("There is already a partition with mount point %s\n", $mntpoint); cdie \N("You've selected a software RAID partition as root (/). No bootloader is able to handle this without a /boot partition. -- cgit v1.2.1