From c1219e637b5b9d31351a43e712353b89e0433c3a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 7 Apr 2005 10:03:36 +0000 Subject: workaround weird old code (bugzilla #15300) --- perl-install/install_steps.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 691126773..06ace7895 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -241,13 +241,13 @@ sub ask_mntpoint_s {#-}}} my %m; foreach (@$fstab) { my $m = $_->{mntpoint}; - next if !$m || $m eq 'swap'; #- there may be a lot of swap. + $m && $m =~ m!^/! or next; #- there may be a lot of swaps or "none" $m{$m} and die N("Duplicate mount point %s", $m); $m{$m} = 1; #- in case the type does not correspond, force it to ext3 - fs::type::set_fs_type($_, 'ext3') if $m =~ m|^/| && !isTrueFS($_) && !isOtherAvailableFS($_); + fs::type::set_fs_type($_, 'ext3') if !isTrueFS($_) && !isOtherAvailableFS($_); } 1; } -- cgit v1.2.1