From c75193289b79d4c0687aa6a597b51436568f8360 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 6 Aug 2000 00:38:57 +0000
Subject: no_comment

---
 perl-install/partition_table.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index fc43e53ab..c0d45d437 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -25,7 +25,7 @@ use log;
 @important_types = ('Linux native', 'Linux swap', 'Win98 FAT32');
 @important_types2 = (arch() =~ /i.86/ ? 'ReiserFS' : (), 'Linux RAID');
 
-@fields2save = qw(primary extended totalsectors);
+@fields2save = qw(primary extended totalsectors isDirty needKernelReread);
 
 
 my %types = (
@@ -473,6 +473,7 @@ sub write($) {
 	}
     }
     $hd->{isDirty} = 0;
+    $hd->{hasBeenDirty} = 1; #- used in undo (to know if undo should believe isDirty or not)
 
     #- now sync disk and re-read the partition table
     if ($hd->{needKernelReread}) {
-- 
cgit v1.2.1