summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-23 17:57:03 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-23 17:57:03 +0000
commit94bec14e16b9f0364018d08beb2fbf3dfc91267d (patch)
tree718a25d87d998ed2075518a806e05e6e46c27d5b /perl-install/fs.pm
parent9c7df16fb5bd54f1b475ada02808e35a404ed1ce (diff)
downloaddrakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar
drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.gz
drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.bz2
drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.xz
drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.zip
no_comment
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r--perl-install/fs.pm14
1 files changed, 12 insertions, 2 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 60440b7a9..a19b498d0 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -169,9 +169,19 @@ sub mount_all($;$) {
log::l("mounting all filesystems");
+ my ($hd_dev) = cat_("/proc/mounts") =~ m|/tmp/(\S+)\s+/tmp/hdimage| unless $::isStandalone;
+
#- order mount by alphabetical ordre, that way / < /home < /home/httpd...
- foreach (sort { ($a->{mntpoint} || '') cmp ($b->{mntpoint} || '') } @$fstab) {
- mount_part($_, $prefix) if $_->{mntpoint};
+ foreach (grep { $_->{mntpoint} } sort { ($a->{mntpoint} || '') cmp ($b->{mntpoint} || '') } @$fstab) {
+ if ($hd_dev && $_->{device} eq $hd_dev) {
+ my $dir = "$prefix$_->{mntpoint}";
+ $dir =~ s|/+$||;
+ log::l("special hd case ($dir)");
+ rmdir $dir;
+ symlink "/tmp/hdimage", $dir;
+ } else {
+ mount_part($_, $prefix);
+ }
}
}