diff options
Diffstat (limited to 'perl-install/fs')
| -rw-r--r-- | perl-install/fs/mount.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/fs/mount.pm b/perl-install/fs/mount.pm index e96228d75..7ca29dbda 100644 --- a/perl-install/fs/mount.pm +++ b/perl-install/fs/mount.pm @@ -179,6 +179,13 @@ sub part { run_program::run('quotacheck', $mntpoint); } } + if (isLoopback($part) && $::isInstall) { + #- since /etc/mtab is symlinked to /proc/mounts, umount will + #- not be able to know it needs to do losetup -d + #- TODO: drop this and have a real /etc/mtab + $part->{real_device} = cat_("/proc/mounts") =~ m!(/dev/\S+)\s+\Q$mntpoint\E\s! && $1; + log::l("XXX $part->{real_device}"); + } } } $part->{isMounted} = 1; |