diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-10-25 22:59:18 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-10-25 22:59:18 +0000 |
| commit | d80182fb067de110a09af88969ab9844e11ce21d (patch) | |
| tree | 93726966b4a51341fca6fa8d4bc290ed35f402f1 /perl-install/partition_table_raw.pm | |
| parent | 31ad0827997c40a6471cbe0eddc3b89534d07323 (diff) | |
| download | drakx-backup-do-not-use-d80182fb067de110a09af88969ab9844e11ce21d.tar drakx-backup-do-not-use-d80182fb067de110a09af88969ab9844e11ce21d.tar.gz drakx-backup-do-not-use-d80182fb067de110a09af88969ab9844e11ce21d.tar.bz2 drakx-backup-do-not-use-d80182fb067de110a09af88969ab9844e11ce21d.tar.xz drakx-backup-do-not-use-d80182fb067de110a09af88969ab9844e11ce21d.zip | |
no_comment
Diffstat (limited to 'perl-install/partition_table_raw.pm')
| -rw-r--r-- | perl-install/partition_table_raw.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/partition_table_raw.pm b/perl-install/partition_table_raw.pm index b73b43590..56b28e36e 100644 --- a/perl-install/partition_table_raw.pm +++ b/perl-install/partition_table_raw.pm @@ -69,7 +69,7 @@ sub openit($$;$) { sysopen $_[1], $_[0]{file}, $_[2] || 0; } # cause kernel to re-read partition table sub kernel_read($) { my ($hd) = @_; - local *F; openit($hd, \*F) or return 0; + local *F; openit($hd, *F) or return 0; $hd->{rebootNeeded} = !ioctl(F, c::BLKRRPART(), 0); } @@ -77,7 +77,7 @@ sub read($$) { my ($hd, $sector) = @_; my $tmp; - local *F; openit($hd, \*F) or return; + local *F; openit($hd, *F) or return; c::lseek_sector(fileno(F), $sector, $offset) or die "reading of partition in sector $sector failed"; my @pt = map { @@ -98,7 +98,7 @@ sub read($$) { sub write($$$) { my ($hd, $sector, $pt) = @_; - local *F; openit($hd, \*F, 2) or die "error opening device $hd->{device} for writing"; + local *F; openit($hd, *F, 2) or die "error opening device $hd->{device} for writing"; c::lseek_sector(fileno(F), $sector, $offset) or return 0; @$pt == $nb_primary or die "partition table does not have $nb_primary entries"; |