fix bug 4257

1 files changed, 8 insertions, 5 deletions

diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index d4e9a53fc..a511ce931 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -505,12 +505,14 @@ sub mount {
 
     -d $where or commands::mkdir_('-p', $where);
 
+    my @fs_modules = qw(vfat hfs romfs ufs reiserfs xfs jfs ext3);
+
     if ($fs eq 'nfs') {
 	log::l("calling nfs::mount($dev, $where)");
 #	nfs::mount($dev, $where) or die _("nfs mount failed");
     } elsif ($fs eq 'smbfs') {
 	die "no smb yet...";
-    } else {
+    } elsif (member($fs, 'ext2', @fs_modules)) {
 	$dev = devices::make($dev) if $fs ne 'proc' && $fs ne 'usbdevfs';
 
 	my $flag = c::MS_MGC_VAL();
@@ -519,8 +521,6 @@ sub mount {
 
 	if ($fs eq 'vfat') {
 	    $mount_opt = 'check=relaxed';
-	    eval { modules::load('vfat') }; #- try using vfat
-	    eval { modules::load('msdos') } if $@; #- otherwise msdos...
 	} elsif ($fs eq 'reiserfs') {
 	    #- could be better if we knew if there is a /boot or not
 	    #- without knowing it, / is forced to be mounted with notail
@@ -531,16 +531,19 @@ sub mount {
 	    $? & 0x0100 and log::l("fsck corrected partition $dev");
 	    $? & 0xfeff and die _("fsck failed with exit code %d or signal %d", $? >> 8, $? & 255);
 	}
-	if (member($fs, qw(hfs romfs ufs reiserfs xfs jfs ext3))) {
+	if (member($fs, @fs_modules)) {
 	    eval { modules::load($fs) };
 	}
 
 	$where =~ s|/$||;
 	log::l("calling mount($dev, $where, $fs, $flag, $mount_opt)");
 	syscall_('mount', $dev, $where, $fs, $flag, $mount_opt) or die _("mount failed: ") . "$!";
+    } else {
+	log::l("skipping mounting $fs partition");
+	return;
     }
     local *F;
-    open F, ">>/etc/mtab" or return; #- fail silently, must be read-only /etc
+    open F, ">>/etc/mtab" or return; #- fail silently, /etc must be read-only
     print F "$dev $where $fs defaults 0 0\n";
 }