From bbe401b766272753bd1d25942322fc3928132020 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 5 May 2000 07:33:30 +0000 Subject: no_comment --- perl-install/fsedit.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/fsedit.pm') diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index 2c5e90aa2..844762905 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -177,6 +177,7 @@ sub suggest_part($$$;$) { my ($hd, $part, $hds, $suggestions) = @_; $suggestions ||= \@suggestions; + my $has_swap = grep { isSwap($_) } get_fstab(@$hds); my ($best, $second) = @@ -184,7 +185,7 @@ sub suggest_part($$$;$) { grep { $_->{size} <= ($part->{maxsize} || $part->{size}) } grep { !has_mntpoint($_->{mntpoint}, $hds) || isSwap($_) && !$has_swap } grep { !$_->{hd} || $_->{hd} eq $hd->{device} } - grep { !$part->{type} || $part->{type} == $_->{type} } + grep { !$part->{type} || $part->{type} == $_->{type} || isTrueFS($part->{type}) && isTrueFS($_->{type}) } @$suggestions or return; #- if (arch() =~ /^i386/) { -- cgit v1.2.1