From 2fe429a1283bb382c14b3657ab9f752a8b240233 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 1 Sep 1999 10:21:01 +0000
Subject: no_comment

---
 perl-install/install2.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'perl-install/install2.pm')

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 9f64b17ee..bafaa515d 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -4,7 +4,7 @@ use diagnostics;
 use strict;
 use vars qw($o);
 
-use common qw(:common :file :system);
+use common qw(:common :file :system :functional);
 use install_any qw(:all);
 use log;
 use network;
@@ -282,7 +282,14 @@ sub setupSCSI {
 
 sub partitionDisks {
     $o->{drives} = [ detect_devices::hds() ];
-    $o->{hds} = fsedit::hds($o->{drives}, $o->{default}{partitioning});
+    $o->{hds} = catch_cdie { fsedit::hds($o->{drives}, $o->{default}{partitioning}) }
+      sub {
+	  $o->ask_warn(_("Error"), 
+_("I can't read your partition table, it's too corrupted for me :(
+I'll try to go on blanking bad partitions"));
+	  1;
+      };
+
     unless (@{$o->{hds}} > 0) {
 	$o->setupSCSI if $o->{autoSCSI}; # ask for an unautodetected scsi card
     }
-- 
cgit v1.2.1