From c2b44f66b9d3bccd78764b208feaa9d9a119a0a1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 19 Apr 2000 13:36:08 +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 2f502728f..0d0129786 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -203,6 +203,7 @@ sub mount($$$;$) {
 	    eval { modules::load('reiserfs') };
 	}
 
+	$where =~ s|/$||;
 	log::l("calling mount($dev, $where, $fs, $flag, $mount_opt)");
 	syscall_('mount', $dev, $where, $fs, $flag, $mount_opt) or die _("mount failed: ") . "$!";
     }
-- 
cgit v1.2.1