From 6e0bb1756e368a569a5b054d939da4f3a2911c7b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 23 Aug 2001 12:30:27 +0000 Subject: (cond_umount_hdimage): do not unmount /tmp/hdimage if not using ramdisk --- perl-install/install_any.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 5d231498b..cf5b72379 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -1042,7 +1042,7 @@ sub remove_bigseldom_used { } sub cond_umount_hdimage() { - if (cat_("/proc/mounts") =~ m|/\w+/(\S+)\s+/tmp/hdimage\s+(\S+)| && !$::o->{partitioning}{readonly}) { + if (cat_("/proc/mounts") =~ m|/\w+/(\S+)\s+/tmp/hdimage\s+(\S+)| && !$::o->{partitioning}{readonly} && common::usingRamdisk()) { $::o->{stage1_hd} = { device => $1, type => $2 }; getFile("XXX"); #- close still opened filehandle eval { fs::umount("/tmp/hdimage") }; -- cgit v1.2.1