From 3fbb4389df3ddeecd4fcd645591a3d90a47de373 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 22 Nov 1999 01:56:47 +0000
Subject: no_comment

---
 perl-install/partition_table.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 05d30b916..7bc22ada5 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -333,7 +333,7 @@ sub read($;$) {
       read_one($hd, 0) || return 0;
 
     $hd->{primary} = $pt;
-    $hd->{extended} = undef;
+    undef $hd->{extended};
     $clearall and return $hd->{isDirty} = $hd->{needKernelReread} = 1;
     verifyPrimary($pt);
 
-- 
cgit v1.2.1