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/fsedit.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

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

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 6d07796d6..fc555c056 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -3,7 +3,7 @@ package fsedit;
 use diagnostics;
 use strict;
 
-use common qw(:common :constant);
+use common qw(:common :constant :functional);
 use partition_table qw(:types);
 use partition_table_raw;
 use Data::Dumper;
@@ -50,10 +50,8 @@ sub hds($$) {
 
 	eval { partition_table::read($hd, $flags->{clearall}) }; 
 	if ($@) {
-#	    $@ =~ /bad magic number/ or die;
-	    $flags->{eraseBadPartitions} ?
-	      partition_table_raw::zero_MBR($hd) :
-	      die;
+	    &cdie($@) unless $flags->{eraseBadPartitions};
+	    partition_table_raw::zero_MBR($hd);
 	}
 	push @hds, $hd;
     }
-- 
cgit v1.2.1