From e1d7d13d8807b1a404afcaf90c7686c1fcbca2c2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 2 Feb 2006 09:57:10 +0000
Subject: log test_for_bad_drives errors

---
 perl-install/fsedit.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install')

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 4a30c9765..58d5d736d 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -144,6 +144,7 @@ sub get_hds {
 
 	eval { partition_table::raw::test_for_bad_drives($hd) if !$flags->{no_bad_drives} };
 	if (my $err = $@) {
+	    log::l("test_for_bad_drives returned $err");
 	    if ($err =~ /write error:/) { 
 		$hd->{readonly} = 1;
 	    } elsif ($err =~ /read error:/) {
-- 
cgit v1.2.1