From 4fb58f50234c507d82cea15e3708e1b4d1584503 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 31 Aug 2000 18:28:00 +0000
Subject: no_comment

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

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

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index feecaa33f..aae124ba5 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -427,7 +427,7 @@ sub read_extended {
     @{$hd->{extended}} > 100 and die "oops, seems like we're looping here :(  (or you have more than 100 extended partitions!)";
 
     @{$pt->{normal}} <= 1 or die "more than one normal partition in extended partition";
-    @{$pt->{normal}} >= 1 or die "no normal partition in extended partition";
+    @{$pt->{normal}} >= 1 or cdie "no normal partition in extended partition";
     $pt->{normal} = $pt->{normal}[0];
     #- in case of extended partitions, the start sector is local to the partition or to the first extended_part!
     $pt->{normal}{start} += $pt->{start};
@@ -632,8 +632,8 @@ sub next_start($$) {
 
 sub can_raw_add {
     my ($hd) = @_;
-    $_->{size} || $_->{type} or return foreach @{$hd->{primary}{raw}};
-    1;
+    $_->{size} || $_->{type} or return 1 foreach @{$hd->{primary}{raw}};
+    0;
 }
 sub raw_add {
     my ($raw, $part) = @_;
@@ -663,7 +663,7 @@ sub load($$;$) {
 
     my %h; @h{@fields2save} = @$h;
 
-    $h{totalsectors} == $hd->{totalsectors} or $force or cdie("Bad totalsectors");
+    $h{totalsectors} == $hd->{totalsectors} or $force or cdie "bad totalsectors";
 
     #- unsure we don't modify totalsectors
     local $hd->{totalsectors};
-- 
cgit v1.2.1