From 0bc75bac4fd3c0599f05f556326dfd84ee39c842 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sat, 28 Mar 2015 01:58:50 +0100
Subject: better fix for too corrupted partition table

---
 perl-install/NEWS                   | 2 ++
 perl-install/install/NEWS           | 3 +++
 perl-install/partition_table/raw.pm | 2 +-
 3 files changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index af6321f4d..cdc1b7c68 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- diskdrake:
+  o better fix for fail to read too corrupted partition table
 - stage2:
   o revert changes made in 16.70 for a better fix to mga#13894
 
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 8bc370db0..5d64b6d57 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- partitionning:
+  o better fix for fail to read too corrupted partition table
+
 Version 16.74 - 27 March 2015
 
 - GPT partitionning:
diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm
index 11bbbe59c..7b4e7d5cf 100644
--- a/perl-install/partition_table/raw.pm
+++ b/perl-install/partition_table/raw.pm
@@ -242,7 +242,7 @@ sub read_primary {
     my ($hd) = @_;
 
     my ($pt, $info) = eval { $hd->read_one(0) };
-    @$pt or return;
+    $pt or return;
     my $primary = partition_table::raw::pt_info_to_primary($hd, $pt, $info);
     $hd->{primary} = $primary;
     undef $hd->{extended};
-- 
cgit v1.2.1