summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-17 15:42:29 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-17 15:42:29 +0000
commitdddfb90059117e6dde52c09e79ba0c8672942b53 (patch)
tree351bfc56411ea5e33782e579e7291ed783023b4c /perl-install/fs.pm
parente2ab672b87d900beabb21632833e2f97d475b09a (diff)
downloaddrakx-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.pm11
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($;$) {