diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-17 15:42:29 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-17 15:42:29 +0000 |
| commit | dddfb90059117e6dde52c09e79ba0c8672942b53 (patch) | |
| tree | 351bfc56411ea5e33782e579e7291ed783023b4c /perl-install/fs.pm | |
| parent | e2ab672b87d900beabb21632833e2f97d475b09a (diff) | |
| download | drakx-dddfb90059117e6dde52c09e79ba0c8672942b53.tar drakx-dddfb90059117e6dde52c09e79ba0c8672942b53.tar.gz drakx-dddfb90059117e6dde52c09e79ba0c8672942b53.tar.bz2 drakx-dddfb90059117e6dde52c09e79ba0c8672942b53.tar.xz drakx-dddfb90059117e6dde52c09e79ba0c8672942b53.zip | |
no_comment
Diffstat (limited to 'perl-install/fs.pm')
| -rw-r--r-- | perl-install/fs.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 36972a11b..485f24660 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -164,7 +164,14 @@ sub formatMount_all { foreach sort { isLoopback($a) ? 1 : -1 } grep { $_->{mntpoint} } @$fstab; #- ensure the link is there - loopback::carryRootCreateSymlink($_, $prefix) foreach @$fstab; + loopback::carryRootCreateSymlink($_, $prefix) foreach @$fstab; + + #- for fun :) + #- that way, when install exits via ctrl-c, it gives hand to partition + eval { + my ($type, $major, $minor) = devices::entry(fsedit::get_root($fstab)->{device}); + output "/proc/sys/kernel/real-root-dev", makedev($major, $minor); + }; } sub mount($$$;$) { @@ -388,7 +395,7 @@ sub write_fstab($;$$) { sub merge_fstabs { my ($fstab, $manualFstab) = @_; my %l; $l{$_->{device}} = $_ foreach @$manualFstab; - add2hash_($_, $l{$_->{device}} || next) foreach @$fstab; + %$_ = (%$_, %{$l{$_->{device}} || next}) foreach @$fstab; } #sub check_mount_all_fstab($;$) { |