From b20d62cf6f8493cc79c9e8b25e39d2bb5bbd735b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 28 Aug 2000 21:59:42 +0000 Subject: no_comment --- perl-install/fs.pm | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) (limited to 'perl-install/fs.pm') diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 9185b980b..bbef90222 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -223,23 +223,12 @@ sub umount($) { log::l("calling umount($mntpoint)"); syscall_('umount', $mntpoint) or die _("error unmounting %s: %s", $mntpoint, "$!"); - my @mtab = cat_('/etc/mtab'); #- don't care about error, if we can't read, we won't manage to write... (and mess mtab) - local *F; - open F, ">/etc/mtab" or return; - foreach (@mtab) { print F $_ unless /(^|\s)$mntpoint\s/; } + 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) } sub mount_part($;$$) { my ($part, $prefix, $rdonly) = @_; - if ($part->{realMntpoint} eq "/tmp/hdimage") { - my $dir = "$prefix$part->{mntpoint}"; - $dir =~ s|/+$||; - log::l("special hd case ($dir)"); - rmdir $dir; - symlink "/tmp/hdimage", $dir; - return; - } #- root carrier's link can't be mounted loopback::carryRootCreateSymlink($part, $prefix); -- cgit v1.2.1