From 18aaa8cd39e680fc54116128c24469f7afadb78d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 30 Aug 2000 17:20:24 +0000 Subject: no_comment --- perl-install/fs.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/fs.pm') diff --git a/perl-install/fs.pm b/perl-install/fs.pm index bbef90222..2bf151c32 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -66,10 +66,10 @@ sub get_mntpoints_from_fstab { foreach (read_fstab("$prefix/etc/fstab")) { foreach my $p (@$fstab) { $p->{device} eq $_->{device} or next; + $_->{type} ne 'auto' && $_->{type} ne type2fs($p->{type}) and + log::l("err, fstab and partition table do not agree for $_->{device} type: " . (type2fs($p->{type}) || type2name($p->{type})) . " vs $_->{type}"), next; $p->{mntpoint} ||= $_->{mntpoint}; $p->{options} ||= $_->{options}; - $_->{type} ne 'auto' && $_->{type} ne type2fs($p->{type}) and - log::l("err, fstab and partition table do not agree for $_->{device} type: " . (type2fs($p->{type}) || type2name($p->{type})) . " vs $_->{type}"); } } } -- cgit v1.2.1