summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table_raw.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-08-28 10:19:54 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-08-28 10:19:54 +0000
commit2d3b13d3b7e6f08f6310467ece7d399c5858d233 (patch)
tree61e0a5cc6284c4e8dc138385da6329f2b8e83e0f /perl-install/partition_table_raw.pm
parent90f7bb2359c71498b66bf6eb4ed764671816ace6 (diff)
downloaddrakx-backup-do-not-use-2d3b13d3b7e6f08f6310467ece7d399c5858d233.tar
drakx-backup-do-not-use-2d3b13d3b7e6f08f6310467ece7d399c5858d233.tar.gz
drakx-backup-do-not-use-2d3b13d3b7e6f08f6310467ece7d399c5858d233.tar.bz2
drakx-backup-do-not-use-2d3b13d3b7e6f08f6310467ece7d399c5858d233.tar.xz
drakx-backup-do-not-use-2d3b13d3b7e6f08f6310467ece7d399c5858d233.zip
no_comment
Diffstat (limited to 'perl-install/partition_table_raw.pm')
-rw-r--r--perl-install/partition_table_raw.pm8
1 files changed, 5 insertions, 3 deletions
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};
}