summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-10 22:36:46 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-10 22:36:46 +0000
commitde08b3c99e81030d1455dc7b3bf869559a234495 (patch)
tree71639bb74323bb82e7203d84511e8b81702ca2fa /perl-install/install_steps.pm
parenteaf1f7e94354b3bf37db6864de8364ffbda223f7 (diff)
downloaddrakx-backup-do-not-use-de08b3c99e81030d1455dc7b3bf869559a234495.tar
drakx-backup-do-not-use-de08b3c99e81030d1455dc7b3bf869559a234495.tar.gz
drakx-backup-do-not-use-de08b3c99e81030d1455dc7b3bf869559a234495.tar.bz2
drakx-backup-do-not-use-de08b3c99e81030d1455dc7b3bf869559a234495.tar.xz
drakx-backup-do-not-use-de08b3c99e81030d1455dc7b3bf869559a234495.zip
no_comment
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm6
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});
}
}
}