diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-20 16:27:57 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-20 16:27:57 +0000 |
| commit | 2ec543bbff01fe789af15b9623b5be2c39bcaebd (patch) | |
| tree | 89cbd5ae9297bff4de4627f1bda713a9079da9d2 /perl-install/install_any.pm | |
| parent | 125c9258c546be4877c0bbed618e10e49bb83368 (diff) | |
| download | drakx-backup-do-not-use-2ec543bbff01fe789af15b9623b5be2c39bcaebd.tar drakx-backup-do-not-use-2ec543bbff01fe789af15b9623b5be2c39bcaebd.tar.gz drakx-backup-do-not-use-2ec543bbff01fe789af15b9623b5be2c39bcaebd.tar.bz2 drakx-backup-do-not-use-2ec543bbff01fe789af15b9623b5be2c39bcaebd.tar.xz drakx-backup-do-not-use-2ec543bbff01fe789af15b9623b5be2c39bcaebd.zip | |
try harder to umount /tmp/hdimage only when needed
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index bba61987d..f3b6f9be1 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -1046,6 +1046,17 @@ sub remove_bigseldom_used { ); } +sub cond_umount_hdimage() { + if (cat_("/proc/mounts") =~ m|/\w+/(\S+)\s+/tmp/hdimage\s+(\S+)| && !$::o->{partitioning}{readonly}) { + $::o->{stage1_hd} = { device => $1, type => $2 }; + getFile("XXX"); #- close still opened filehandle + eval { fs::umount("/tmp/hdimage") }; + } +} +sub cond_remount_hdimage { + my $s = shift || delete $::o->{stage1_hd} or return; + fs::mount($s->{device}, '/tmp/hdimage', $s->{type}); +} ################################################################################ package pkgs_interactive; |