From e47d0821bfd0def11d10bb68a46a3335934f283a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 6 Jan 2004 17:24:08 +0000
Subject: perl_checker compliance

---
 perl-install/partition_table.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index a4120d0bb..2d3fe168d 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -522,8 +522,9 @@ sub read {
     verifyPrimary($pt);
     eval {
 	my $need_removing_empty_extended;
-	$pt->{extended} and read_extended($hd, $pt->{extended}, \$need_removing_empty_extended) || return 0;
-
+	if ($pt->{extended}) {
+	    read_extended($hd, $pt->{extended}, \$need_removing_empty_extended) or return 0;
+	}
 	if ($need_removing_empty_extended) {
 	    #- special case when hda5 is empty, it must be skipped
 	    #- (windows XP generates such partition tables)
-- 
cgit v1.2.1