diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/fs.pm | 5 | ||||
| -rw-r--r-- | perl-install/install_any.pm | 18 | ||||
| -rw-r--r-- | perl-install/network/tools.pm | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/bootloader-config | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/diskdrake | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakboot | 2 |
6 files changed, 22 insertions, 9 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 8b0a58e74..8d76939b8 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -236,10 +236,9 @@ sub merge_info_from_fstab { merge_fstabs($loose, $fstab, @l); } -# - when using "$loose", it does not merge in type&options from the fstab sub get_info_from_fstab { - my ($all_hds, $prefix) = @_; - my @l = read_fstab($prefix, '/etc/fstab', 'keep_default'); + my ($all_hds) = @_; + my @l = read_fstab('/etc/fstab', 'keep_default'); add2all_hds($all_hds, @l) } diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 1e9893242..04c3204e5 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -213,7 +213,7 @@ sub getFile { $o_altroot ||= '/tmp/image'; $f2 = "$o_altroot/$rel" if $rel !~ m,^/, && (!$postinstall_rpms || !-e $f2); #- $f2 = "/$rel" if !$::o->{packages}{mediums}{$asked_medium}{rpmsdir} && !-e $f2; #- not a relative path, should not be necessary with new media layout - my $F; open($F, $f2) && $F or do { $f2 !~ /XXX/ and log::l("Can't open $f2: $!"); undef } + my $F; open($F, $f2) ? $F : do { $f2 !~ /XXX/ and log::l("Can't open $f2: $!"); undef } } } || errorOpeningFile($f); } @@ -1281,7 +1281,21 @@ sub use_root_part { my ($all_hds, $part, $prefix) = @_; { my $handle = any::inspect($part, $prefix) or die; - fs::get_info_from_fstab($all_hds, $handle->{dir}); + + my @l = fs::read_fstab($handle->{dir}, '/etc/fstab', 'keep_default'); + + my $root = fs::get::root_(\@l); + if (!fsedit::is_same_hd($root, $part)) { + log::l("warning: fstab says root partition is $root->{device}, whereas we were reading fstab from $part->{device}"); + my ($old, $new) = map { my $s = $_->{device}; $s =~ s/\d+$//; $s } ($root, $part); + if ($old && $new) { + log::l("replacing $old with $new"); + $_->{device} =~ s!^\Q$old!$new! foreach @l; + log::l("l contains: $_->{device} $_->{mntpoint}") foreach @l; + } + } + fs::add2all_hds($all_hds, @l); + log::l("fstab is now: $_->{device} $_->{mntpoint}") foreach fs::get::fstab($all_hds); } isSwap($_) and $_->{mntpoint} = 'swap' foreach fs::get::really_all_fstab($all_hds); #- use all available swap. } diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index 897d83235..e1d59c69f 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -177,7 +177,7 @@ sub remove_initscript() { sub use_windows { my ($file) = @_; my $all_hds = fsedit::get_hds({}, undef); - fs::get_info_from_fstab($all_hds, ''); + fs::get_info_from_fstab($all_hds); my $part = find { $_->{device_windobe} eq 'C' } fs::get::fstab($all_hds); $part or my $failed = N("No partition available"); my $source = find { -d $_ && -r "$_/$file" } map { "$part->{mntpoint}/$_" } qw(windows/system winnt/system windows/system32/drivers winnt/system32/drivers); diff --git a/perl-install/standalone/bootloader-config b/perl-install/standalone/bootloader-config index 0115e6de6..2d0ec329e 100755 --- a/perl-install/standalone/bootloader-config +++ b/perl-install/standalone/bootloader-config @@ -54,7 +54,7 @@ if ($image) { my $all_hds = fsedit::get_hds(); -fs::get_info_from_fstab($all_hds, ''); +fs::get_info_from_fstab($all_hds); my $bootloader = bootloader::read([ fs::get::fstab($all_hds) ]) or die "Cannot find a boot loader installed\n"; diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake index d55968d81..77d30bedc 100755 --- a/perl-install/standalone/diskdrake +++ b/perl-install/standalone/diskdrake @@ -75,7 +75,7 @@ my $all_hds = fsedit::get_hds({}, $in); fs::get_raw_hds('', $all_hds); -fs::get_info_from_fstab($all_hds, ''); +fs::get_info_from_fstab($all_hds); fs::merge_info_from_mtab([ fs::get::really_all_fstab($all_hds) ]); $all_hds->{current_fstab} = fs::fstab_to_string($all_hds, ''); diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index a2b81a559..3f3330d82 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -43,7 +43,7 @@ my $in = 'interactive'->vnew('su'); my $all_hds = fsedit::get_hds(); fs::get_raw_hds('', $all_hds); -fs::get_info_from_fstab($all_hds, ''); +fs::get_info_from_fstab($all_hds); my $fstab = [ fs::get::fstab($all_hds) ]; my $bootloader = bootloader::read($fstab); |