diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-08-21 18:15:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-08-21 18:15:37 +0000 |
| commit | e2df2b17c50af038bbfe15f5b6dd9a21c532ae5b (patch) | |
| tree | 61b2e028ffcbbb85172104a24693a20cab0d30ba /perl-install/partition_table_raw.pm | |
| parent | 12eb8608ad517afff8c323e276f2f4f4e5405896 (diff) | |
| download | drakx-backup-do-not-use-e2df2b17c50af038bbfe15f5b6dd9a21c532ae5b.tar drakx-backup-do-not-use-e2df2b17c50af038bbfe15f5b6dd9a21c532ae5b.tar.gz drakx-backup-do-not-use-e2df2b17c50af038bbfe15f5b6dd9a21c532ae5b.tar.bz2 drakx-backup-do-not-use-e2df2b17c50af038bbfe15f5b6dd9a21c532ae5b.tar.xz drakx-backup-do-not-use-e2df2b17c50af038bbfe15f5b6dd9a21c532ae5b.zip | |
no_comment
Diffstat (limited to 'perl-install/partition_table_raw.pm')
| -rw-r--r-- | perl-install/partition_table_raw.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/perl-install/partition_table_raw.pm b/perl-install/partition_table_raw.pm index 70bb99fd4..7eee56f5a 100644 --- a/perl-install/partition_table_raw.pm +++ b/perl-install/partition_table_raw.pm @@ -115,14 +115,20 @@ sub kernel_read($) { sync(); sleep(1); } -sub zero_MBR($) { +sub zero_MBR { my ($hd) = @_; #- force the standard partition type for the architecture my $type = arch() eq "alpha" ? "bsd" : arch() =~ /^sparc/ ? "sun" : arch() eq "ppc" ? "mac" : "dos"; bless $hd, "partition_table_$type"; - $hd->{isDirty} = $hd->{needKernelReread} = 1; $hd->{primary} = $hd->clear_raw(); delete $hd->{extended}; } +sub zero_MBR_and_dirty { + my ($hd) = @_; + zero_MBR($hd); + $hd->{isDirty} = $hd->{needKernelReread} = 1; + +} + 1; |