From 2b945c8178c4ae57d592c199a24f09ff7e0812ec Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 9 Aug 1999 08:23:57 +0000
Subject: *** empty log message ***

---
 perl-install/partition_table_raw.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(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 973961f5a..67223e392 100644
--- a/perl-install/partition_table_raw.pm
+++ b/perl-install/partition_table_raw.pm
@@ -98,4 +98,10 @@ sub write($$$) {
     syswrite F, $magic, length $magic or return 0;
     1;
 }
-sub zero_MBR($) { &write($_[0], 0, [ {} x $nb_primary ]); }
+
+sub clear_raw { { raw => [ ({}) x $nb_primary ] } }
+
+sub zero_MBR($) { 
+    $_[0]->{primary} = clear_raw();
+    delete $_[0]->{extended};
+}
-- 
cgit v1.2.1