From de08b3c99e81030d1455dc7b3bf869559a234495 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 10 Oct 1999 22:36:46 +0000
Subject: no_comment

---
 perl-install/install_steps.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_steps.pm')

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});
 	}
     }
 }
-- 
cgit v1.2.1