SYS_umount does not exist on modern kernels and architectures like x86-64 :)

1 files changed, 6 insertions, 1 deletions

diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 7eaf61711..43cf25319 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -737,7 +737,12 @@ sub umount {
     my ($mntpoint) = @_;
     $mntpoint =~ s|/$||;
     log::l("calling umount($mntpoint)");
-    syscall_('umount', $mntpoint) or die _("error unmounting %s: %s", $mntpoint, "$!");
+
+	# SYS_umount is not a valid sycall on modern kernels
+    (arch() =~ /x86_64/
+	 ? syscall_('umount2', $mntpoint, 0)
+	 : syscall_('umount', $mntpoint)
+	 ) or die _("error unmounting %s: %s", $mntpoint, "$!");
 
     substInFile { $_ = '' if /(^|\s)$mntpoint\s/ } '/etc/mtab'; #- don't care about error, if we can't read, we won't manage to write... (and mess mtab)
 }