summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-22 12:41:11 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-22 12:41:11 +0000
commitd6cb0b7c1d0e8c5ee44ea13532021dc0709df954 (patch)
tree01ca11043c18b05300295809d46c4739336aae86 /perl-install
parent470a1589bf7d83d3ae5de03ede7c5296930023df (diff)
downloaddrakx-d6cb0b7c1d0e8c5ee44ea13532021dc0709df954.tar
drakx-d6cb0b7c1d0e8c5ee44ea13532021dc0709df954.tar.gz
drakx-d6cb0b7c1d0e8c5ee44ea13532021dc0709df954.tar.bz2
drakx-d6cb0b7c1d0e8c5ee44ea13532021dc0709df954.tar.xz
drakx-d6cb0b7c1d0e8c5ee44ea13532021dc0709df954.zip
(test_for_bad_drives): don't open in write mode when testing
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table/raw.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm
index c25127cdc..9d7fb5688 100644
--- a/perl-install/partition_table/raw.pm
+++ b/perl-install/partition_table/raw.pm
@@ -176,7 +176,7 @@ sub test_for_bad_drives {
sub error { die "$_[0] error: $_[1]" }
- my $F = openit($hd, 2) or error(openit($hd) ? 'write' : 'read', "can't open device");
+ my $F = openit($hd, $::testing ? 0 : 2) or error(openit($hd) ? 'write' : 'read', "can't open device");
my $seek = sub {
c::lseek_sector(fileno($F), $sector, 0) or error('read', "seeking to sector $sector failed");