From 041bce7f1ab685a4290865e4eb2c2f5d2aaac285 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 23 Sep 2000 23:30:54 +0000
Subject: no_comment

---
 perl-install/fs.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/fs.pm')

diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index c29faae8a..5b13ea6a6 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -223,6 +223,7 @@ sub mount($$$;$) {
 #- takes the mount point to umount (can also be the device)
 sub umount($) {
     my ($mntpoint) = @_;
+    $mntpoint =~ s|/$||;
     log::l("calling umount($mntpoint)");
     syscall_('umount', $mntpoint) or die _("error unmounting %s: %s", $mntpoint, "$!");
 
-- 
cgit v1.2.1