diff options
Diffstat (limited to 'perl-install/install_steps.pm')
| -rw-r--r-- | perl-install/install_steps.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 353a0e1a1..9c916cc5b 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -59,6 +59,8 @@ sub leavingStep($$) { my ($o, $step) = @_; log::l("step `$step' finished"); + eval { commands::cp('-f', "/tmp/ddebug.log", "$o->{prefix}/root") } if -d "$o->{prefix}/root"; + $o->{steps}{$step}{reachable} = $o->{steps}{$step}{redoable}; while (my $f = shift @{$o->{steps}{$step}{toBeDone} || []}) { @@ -141,9 +143,9 @@ sub choosePartitionsToFormat($$) { unless ($_->{toFormat} = $_->{notFormatted} || $o->{partitioning}{autoformat}) { my $t = fsedit::typeOfPart($_->{device}); - $_->{toFormatUnsure} = + $_->{toFormatUnsure} = $_->{mntpoint} eq "/" || #- if detected dos/win, it's not precise enough to just compare the types (too many of them) - isFat({ type => $t }) ? !isFat($_) : $t != $_->{type}; + (isFat({ type => $t }) ? !isFat($_) : $t != $_->{type}); } } } |