From 94bec14e16b9f0364018d08beb2fbf3dfc91267d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 23 Dec 1999 17:57:03 +0000
Subject: no_comment

---
 perl-install/fs.pm | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

(limited to 'perl-install/fs.pm')

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);
+      }
     }
 }
 
-- 
cgit v1.2.1