summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-23 23:30:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-23 23:30:54 +0000
commit041bce7f1ab685a4290865e4eb2c2f5d2aaac285 (patch)
treed7305d5a8fb789cffc0c4795cc3ff7eff2b8585f /perl-install/fs.pm
parent61b38e21c24cb2537b7105f5867745d0a569ec6f (diff)
downloaddrakx-backup-do-not-use-041bce7f1ab685a4290865e4eb2c2f5d2aaac285.tar
drakx-backup-do-not-use-041bce7f1ab685a4290865e4eb2c2f5d2aaac285.tar.gz
drakx-backup-do-not-use-041bce7f1ab685a4290865e4eb2c2f5d2aaac285.tar.bz2
drakx-backup-do-not-use-041bce7f1ab685a4290865e4eb2c2f5d2aaac285.tar.xz
drakx-backup-do-not-use-041bce7f1ab685a4290865e4eb2c2f5d2aaac285.zip
no_comment
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r--perl-install/fs.pm1
1 files changed, 1 insertions, 0 deletions
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, "$!");