diff options
Diffstat (limited to 'perl-install/partition_table_raw.pm')
| -rw-r--r-- | perl-install/partition_table_raw.pm | 8 |
1 files changed, 7 insertions, 1 deletions
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}; +} |