From 667f6dc5830137b4cd9d9b4969960486213c2049 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 29 Jul 2002 20:33:20 +0000
Subject: cleanup

---
 perl-install/partition_table.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index b7ddb5cb5..4912f7fc3 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -735,10 +735,12 @@ sub add {
 	eval { add_primary($hd, $part) };
 	goto success if !$@;
     }
-    eval { add_extended($hd, $part, $primaryOrExtended) } if $hd->hasExtended; #- try adding extended
-    if ($@ || !$hd->hasExtended) {
-	eval { add_primary($hd, $part) };
-	die $@ if $@; #- send the add extended error which should be better
+    if ($hd->hasExtended) {
+	eval { add_extended($hd, $part, $primaryOrExtended) };
+	goto success if !$@;
+    }
+    {
+	add_primary($hd, $part);
     }
   success:
     assign_device_numbers($hd);
-- 
cgit v1.2.1