From 2d3b13d3b7e6f08f6310467ece7d399c5858d233 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 28 Aug 1999 10:19:54 +0000
Subject: no_comment

---
 perl-install/partition_table_raw.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/partition_table_raw.pm b/perl-install/partition_table_raw.pm
index aa25321a2..7d74debb5 100644
--- a/perl-install/partition_table_raw.pm
+++ b/perl-install/partition_table_raw.pm
@@ -57,7 +57,7 @@ sub openit($$;$) { sysopen $_[1], $_[0]{file}, $_[2] || 0; }
 sub kernel_read($) {
     my ($hd) = @_;
     local *F; openit($hd, \*F) or return 0;
-    ioctl(F, c::BLKRRPART(), 0) or die "kernel_read failed: need to reboot";
+    $hd->{rebootNeeded} = !ioctl(F, c::BLKRRPART(), 0);
 }
 
 sub read($$) {
@@ -102,6 +102,8 @@ sub write($$$) {
 sub clear_raw { { raw => [ ({}) x $nb_primary ] } }
 
 sub zero_MBR($) { 
-    $_[0]{primary} = clear_raw();
-    delete $_[0]{extended};
+    my ($hd) = @_;
+    $hd->{isDirty} = $hd->{needKernelReread} = 1;
+    $hd->{primary} = clear_raw();
+    delete $hd->{extended};
 }
-- 
cgit v1.2.1