summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table_raw.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-02-04 14:22:17 +0000
committerFrancois Pons <fpons@mandriva.com>2000-02-04 14:22:17 +0000
commit60ac60d8a763ff2c8ae64b8d4243b01a54b498ee (patch)
tree5600494716d0d1212047faa56e88610d1800a263 /perl-install/partition_table_raw.pm
parent108a6e5c4434c59ee81091df06b752af4a0e9fe7 (diff)
downloaddrakx-backup-do-not-use-60ac60d8a763ff2c8ae64b8d4243b01a54b498ee.tar
drakx-backup-do-not-use-60ac60d8a763ff2c8ae64b8d4243b01a54b498ee.tar.gz
drakx-backup-do-not-use-60ac60d8a763ff2c8ae64b8d4243b01a54b498ee.tar.bz2
drakx-backup-do-not-use-60ac60d8a763ff2c8ae64b8d4243b01a54b498ee.tar.xz
drakx-backup-do-not-use-60ac60d8a763ff2c8ae64b8d4243b01a54b498ee.zip
*** empty log message ***
Diffstat (limited to 'perl-install/partition_table_raw.pm')
-rw-r--r--perl-install/partition_table_raw.pm8
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/partition_table_raw.pm b/perl-install/partition_table_raw.pm
index 668913d9c..e48cddce0 100644
--- a/perl-install/partition_table_raw.pm
+++ b/perl-install/partition_table_raw.pm
@@ -63,6 +63,7 @@ sub get_geometry($) {
ioctl(F, c::HDIO_GETGEO(), $g) or return;
my %geom; @geom{qw(heads sectors cylinders start)} = unpack "CCSL", $g;
+ $geom{totalcylinders} = $geom{cylinders};
{ geom => \%geom, totalsectors => $geom{heads} * $geom{sectors} * $geom{cylinders} };
}
@@ -72,8 +73,15 @@ sub openit($$;$) { sysopen $_[1], $_[0]{file}, $_[2] || 0; }
# cause kernel to re-read partition table
sub kernel_read($) {
my ($hd) = @_;
+ sync();
local *F; openit($hd, *F) or return 0;
+ sync(); sleep(1);
$hd->{rebootNeeded} = !ioctl(F, c::BLKRRPART(), 0);
+ sync(); sleep(1);
+ $hd->{rebootNeeded} = !ioctl(F, c::BLKRRPART(), 0);
+ sync();
+ close F;
+ sync(); sleep(1);
}
sub zero_MBR($) {