drakx - Mageia Installer and base platform for many utilities

index : drakx

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

summary refs log tree commit diff stats

path: root/perl-install/install/steps_curses.pm

diff options

Diffstat (limited to 'perl-install/install/steps_curses.pm')

0 files changed, 0 insertions, 0 deletions

lass="hl opt">; use c; sub read($$) { my ($hd, $sector) = @_; my $tmp; my $F = partition_table::raw::openit($hd) or die "failed to open device"; c::lseek_sector(fileno($F), $sector, 0) or die "reading of partition in sector $sector failed"; #- check magic number sysread $F, $tmp, 1024 or die "error reading magic number on disk $hd->{device}"; $tmp eq substr($tmp, 0, 1) x 1024 or die "bad magic number on disk $hd->{device}"; partition_table::raw::zero_MBR($hd); $hd->{primary}{raw}, $hd->{primary}{info}; } 1;


context:
space:
mode: