mounting of ntfs after install really mount the partition (thanks to Buchan Milne)

1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm
index be44bc246..46e0e97d8 100644
--- a/perl-install/fs/type.pm
+++ b/perl-install/fs/type.pm
@@ -293,7 +293,7 @@ sub defaultFS() { 'ext4' }
 sub true_local_fs_types() { qw(btrfs ext3 ext2 ext4 reiserfs xfs jfs) }
 
 sub isEmpty { !$_[0]{fs_type} && $_[0]{pt_type} == 0 }
-sub isBIOS_GRUB { $_[0]{pt_type} == 'BIOS_GRUB' }
+sub isBIOS_GRUB { $_[0]{pt_type} eq 'BIOS_GRUB' }
 sub isESP { $_[0]{pt_type} == 0xef && member($_[0]{fs_type}, qw(fat32 vfat)) }
 sub isExtended { $_[0]{pt_type} == 5 || $_[0]{pt_type} == 0xf || $_[0]{pt_type} == 0x85 }
 sub isRawLVM { $_[0]{pt_type} == 0x8e || $_[0]{type_name} eq 'Linux Logical Volume Manager' }
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index d7588ad97..53c729aa3 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -616,7 +616,7 @@ sub mount {
 
     my @fs_modules = qw(vfat hfs romfs ufs reiserfs xfs jfs ext3);
 
-    if (member($fs, 'smb', 'smbfs', 'nfs') && $::isStandalone) {
+    if (member($fs, 'smb', 'smbfs', 'nfs', 'ntfs') && $::isStandalone) {
 	system('mount', '-t', $fs, $dev, $where, '-o', $options) == 0 or die _("mounting partition %s in directory %s failed", $dev, $where);
 	return; #- do not update mtab, already done by mount(8)
     } elsif (member($fs, 'ext2', 'proc', 'usbdevfs', 'iso9660', @fs_modules)) {