summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-08-28 21:59:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-08-28 21:59:42 +0000
commitb20d62cf6f8493cc79c9e8b25e39d2bb5bbd735b (patch)
treea1fe993847fac0fc886781d81eb4d457f87fdd4e /perl-install/fs.pm
parent0f5a62084c1d79c970efbcd9365c6c91a1b8a123 (diff)
downloaddrakx-b20d62cf6f8493cc79c9e8b25e39d2bb5bbd735b.tar
drakx-b20d62cf6f8493cc79c9e8b25e39d2bb5bbd735b.tar.gz
drakx-b20d62cf6f8493cc79c9e8b25e39d2bb5bbd735b.tar.bz2
drakx-b20d62cf6f8493cc79c9e8b25e39d2bb5bbd735b.tar.xz
drakx-b20d62cf6f8493cc79c9e8b25e39d2bb5bbd735b.zip
no_comment
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r--perl-install/fs.pm13
1 files changed, 1 insertions, 12 deletions
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);