summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table_raw.pm30
1 files changed, 29 insertions, 1 deletions
diff --git a/perl-install/partition_table_raw.pm b/perl-install/partition_table_raw.pm
index aae6f843c..0b3ec41b5 100644
--- a/perl-install/partition_table_raw.pm
+++ b/perl-install/partition_table_raw.pm
@@ -3,7 +3,7 @@ package partition_table_raw; # $Id$
use diagnostics;
use strict;
-use common qw(:common :system :file);
+use common qw(:common :system :file :constant);
use devices;
use c;
@@ -133,4 +133,32 @@ sub zero_MBR_and_dirty {
}
+#- ugly stuff needed mainly for Western Digital IDE drives
+#- try writing what we've just read, yells if it fails
+#- testing on last sector of head #0 (unused in 99% cases)
+sub test_for_bad_drives {
+ my ($hd) = @_;
+
+ log::l("test_for_bad_drives($hd->{file})");
+ my $sector = $hd->{geom}{sectors} - 1;
+
+
+ local *F; partition_table_raw::openit($hd, *F, 2) or die "error opening device $hd->{device} for writing";
+
+ my $seek = sub {
+ c::lseek_sector(fileno(F), $sector, 0) or die "seeking to sector $sector failed";
+ };
+ my $tmp;
+
+ &$seek; sysread F, $tmp, $SECTORSIZE or die "test_for_bad_drives: can't even read ($!)";
+ &$seek; syswrite F, $tmp or die "test_for_bad_drives: can't even write ($!)";
+
+ my $tmp2;
+ &$seek; sysread F, $tmp2, $SECTORSIZE or die "test_for_bad_drives: can't even read again ($!)";
+ $tmp eq $tmp2 or die
+_("Something bad is happening on your drive.
+A test to check the integrity of data has failed.
+It means writing anything on the disk will end up with random trash");
+}
+
1;