From fa0c13c106662b2499ea78d0a8fb72857f451f3e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 21 Feb 2003 12:09:47 +0000 Subject: use test_for_bad_drives even after install (esp. to detect removed usb-storage devices still visible in /proc/scsi/scsi) --- perl-install/fsedit.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/fsedit.pm') diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index 98259fc15..7ea91df32 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -184,7 +184,7 @@ sub hds { my $h = partition_table::raw::get_geometry($hd->{file}) or log::l("An error occurred while getting the geometry of block device $hd->{file}: $!"), next; add2hash_($hd, $h); - eval { partition_table::raw::test_for_bad_drives($hd) if $::isInstall }; + eval { partition_table::raw::test_for_bad_drives($hd) }; if (my $err = $@) { if ($err =~ /write error:/) { $hd->{readonly} = 1; -- cgit v1.2.1